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PROGRAMMES 
UTILITAIRES 


ASSEMBLEUR-DESASSEMBLEUR 


Voici un programme utilitaire, véritable outil de travail, 
qui vous deviendra rapidement indispensable dès que 
vous voudrez aborder la programmation en langage ma- 
chine. Ses deux fonctions principales sont complémentai- 
res. Le désassembleur vous permettra de comprendre le 
fonctionnement de ces programmes d’action ultra-rapides 
qui suscitent tant l’admiration du débutant. L’assembleur 
vous offrira la possibilité de vous lancer dans la program- 
mation en langage d'assemblage qui, bien que paraissant 
rébarbatif au début, vous procurera bien plus de satisfac- 
tion que le basic. Nous vous convions à vous référer à un 
manuel de programmation du microprocesseur 6502 pour 
étudier en détail toutes ses instructions. 


Ce programme possède quatre fonctions : assemblage, 
désassemblage, écriture en langage machine, listage d’un 
programme en assembleur sur imprimante. 

Les caractères suivants sont utilisés : 

- “$"’ pour symboliser l’hexadécimal. 

- “#7 pour symboliser l’adressage immédiat. 

- Les parenthèses et la virgule pour les adresses indexés 
aX et Y. 

A la mise en marche du programme apparaît le signe 
“1? ; l'utilisateur doit écrire l'adresse à partir de laquelle il 
désire agir. Cette adresse doit être exprimée en hexadéci- 
mal, sans être précédée du signe ‘$”. 

C’est le signe qui va suivre immédiatement l'adresse 
(sans espaces) qui détermine la fonction choisie : 

- 7 pour l'assemblage. 
- “L”’ pour le désassemblage. 


- “*? pour l'écriture en langage machine. 
- “P’’ pour l’usage d’une imprimante. 


REMARQUES IMPORTANTES : 


Il convient, en rentrant ce programme, de respecter 
exactement chaque caractère. Tout caractère omis ou 
ajouté décalerait les pointeurs de “DATA” et entraïînerait 
l'interruption du programme et l’apparition d’un message 
d'erreur du BASIC. 

Vous pouvez cependant contourner ce problème en 
procédant comme suit : 

- réécrire ainsi : 

25000 RESTORE : RETURN 

30000 IF 1$ = ‘FIN’ THEN PRINT 1$ ; ‘‘-” ; DEEK 

(# BO) : RETURN 
- après avoir mis le programme en exécution, entrer 
“DODOL' (sans les guillemets), et appuyer sur ‘“*RE- 
TURN’; vous verrez alors s'afficher une suite de lignes 
en fin desquelles se trouveront, dans l’ordre, les valeurs à 
recopier, et à substituer à celles figurant dans les lignes 
25040-25180. 

- après avoir procédé à cette substitution, rétablir dans 
leur première version les lignes 25000 et 30000. 

Par ailleurs, lors de l’exécution du programme, l'entrée 
de caractères erronés dans une ligne entraîne l’annulation 
de cette ligne, accompagnée d’un signal sonore et du 
signe ‘“‘t ” placé sous la ligne concernée (sauf dans le 
cas de l'écriture en langage machine où la ligne est sim- 
plement effacée). Il vous faudra alors rentrer la ligne, 
débarrassée du caractère erroné. 

A noter que le programme ne permet pas le retour en 
arrière sur une ligne, son utilisation provoquant l’annula- 
tion de la ligne. 


ASSEMBLAGE : 


Après l’entrée de l’adresse et du signe ““:””, il faut écrire 
dans l’ordre le mnémonique puis l’opérande, sans mettre 
d'espace. 
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A noter que l’utilisation du signe ‘“‘$” est facultative 
dans le champ opérande. 
Une fois la ligne entrée, la pression de la touche “RE- 

TURN’ va : 

- convertir le mnémonique et l’opérande en octets corres- 
pondants. 

- charger ces octets à partir de l’adresse de départ. 

- remplacer la ligne écrite par une ligne où figurent, suc- 
cessivement, l’adresse de début, les octets placés en 
mémoire, puis le mnémonique, et enfin l’opérande écrit 
sous la forme conventionnelle. 

Le signe ‘!” apparaît au début de la ligne suivante. 

Vous avez alors plusieurs possibilités : 

- Vous pouvez écrire une nouvelle adresse, suivie du signe 
“7, et procéder comme ci-dessus. 

- en commençant la ligne par UN espace, immédiatement 
suivi du mnémonique et de l’opérande (sans ‘‘:”), 
l’adresse par défaut sera celle suivant la dernière utilisée 
par la ligne précédente. 

- VOUS pouvez écrire une adresse, suivie du signe “L””, “*” 
ou ‘‘P” pour changer de fonction ; 

- eee pouvez sortir du programme en appuyant sur 
“ESC” 


DESASSEMBLAGE : 


Après l'entrée de l'adresse et du signe ‘“L’’, une pres- 
sion sur la touche ‘RETURN’ entraînera l'écriture sur 
l’écran de 20 lignes du programme se trouvant en mé- 
moire à partir de l’adresse indiquée. 

Pour obtenir 20 nouvelles lignes, il suffit ensuite d’ap- 
puyer sur “RETURN. 

Une pression sur “ESC” ramène au ‘“!”’ et au choix des 
diverses fonctions existantes. Une seconde pression sur 
“ESC” permet de sortir du programme. 

Au cours de l’utilisation de la fonction désassemblage 
peuvent apparaître dans les lignes affichées, à la place du 
mnémonique, les signes ‘‘? ? ?”’ ; ceci signifie que l’octet 
figurant sur la ligne ne correspond à aucune instruction du 
microprocesseur 6502 (ce qui peut être notamment le cas 
en zone de données). 
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PROGRAMMATION EN LANGAGE MACHINE : 


Il peut être utile de pouvoir entrer directement en mé- 
moire les octets formant un programme, sans passer par 
l’'assembleur. Ceci est particulièrement nécessaire pour 
entrer des données. 

Après l'entrée de l’adresse et du signe ‘‘*”’, appuyer sur 
“RETURN; la ligne se réécrira en remplaçant le signe 
“1? par “*” (pour rappeler quelle fonction on utilise), suivi 
par l’adresse entrée et le signe ‘:”. 

Il faut ensuite entrer les octets en hexadécimal (sans 
signe ‘‘$”’), séparés ou non par un espace. 

Appuyer sur ‘RETURN pour déclencher le chargement 
en mémoire des octets entrés ; ce chargement terminé, 
apparaîtra une nouvelle ligne avec l'adresse de la pro- 
chaine adresse chargeable. 

On peut entrer au maximum 8 octets par ligne ; une fois 
ce nombre atteint, le chargement en mémoire se déclen- 
che de lui-même. 

Pour revenir à une ligne précédée du signe “!”, il suffit 
d'appuyer sur “ESC” (une pression de “ESC” en milieu 
d’une ligne annulera celle-ci). 


LISTAGE DE PROGRAMME ASSEMBLEUR SUR IMPRI- 
MANTE : 


Il suffit de procéder comme indiqué au paragraphe dé- 
sassemblage, mais en utilisant la lettre ‘“‘P” au lieu de 
[2° 


En même temps qu'elles seront affichées sur l'écran, 
les 20 lignes seront imprimées. 


ANALYSE DU PROGRAMME 


- lignes 4-30 initialisation 

- lignes 40-70 boucle de saisie des instructions 

- ligne 180 message d’erreur 

- lignes 100-270 recherche de la fonction choisie et renvoi 
au sous-programme correspondant. 

- lignes 300-2360 sous-programme d’assemblage 
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- lignes 320-425 sous-programme de transformation d’une 
chaîne en nombre 

- lignes 3000-3100 programme de contrôle de l’opérande 
en adressage immédiat 

- lignes 3500-3540 calcul du saut en adressage relatif 

- lignes 4000-4480 sous-programme de désassemblage 

- lignes 6000-6150 sous-programme d'utilisation du lan- 
gage machine 

- lignes 10000-10052 liste des instructions et codes 

- lignes 20010-25180 présentation 

- lignes 30000-30050 cas des codes ne correspondant à 
aucune instruction 

- lignes 30100-30120 utilisation des repères “FIN” et 
“END” placés dans la liste des DATA. 


4 REMXASSEMBLEUR / DESASSEMEEUR / UTILI 
TAIRE 

S REMYPORTELLI Joserh & Edgar JACOEHY 

6 FEM1A-6-E3 

7 REMHE PAS MOCIFIER CE PROGRAMME 

8 GOSUB2691 à 

g ÊLE 

f Ah: " 

25 ADE="" 

26 A1$="" 

39 PRIHT"I"; 

49 GETHS 

45 IFH#-CHRSi 27 1THENEHD 

SA LFHS=CHPS 13 THEM 9% 

55 PRIHTHS; 

GA AS=A$+H8 

r@ GOTO4R 

109 LeLENC AS) 

128 IFLEHC AS <QTHEMPRIHT : FRINTSPCS 103 : Gi 
TO18% 

139 IFMIDSCAS, 1, 13e" "THENA=NIDSC AS, 29: 
GOTO128 

149 L1=LEMC RAS) 

158 IFL-LL1THENPRINT :PRINTSPOE 2: :GOTOI 
169 IFL-L1=1THEHSGE 


Ju 
4 
F 
Cu 
1 

el 

Le 


F4 GOTOSHE 

39 PEIHTOHRGE TS MN COTE 

44 FEM 

14 

Len SeMIDHÉ AG, 4, 15 

ges IFébe"L'THENAAEAE 

sed IFhge"PUTMENLIE 1 : GOTOA AAA 

22 IFaba": THEHSAE 

Car [Fée ' EN THENEARA 

234 ASSET 4 

244 IFASÉHESGORE HE HS GANHONES SE HAT ORAS CHAT 
HEMPRIHT : PÉTHTSPEE 4 1: COTON SE 

Log ADS=-HDE4+ 

LÉ meti 

268 JIFASLENE AS CTHENMPRIHT : PRIMTSPESLEHE 4% 
133 :GOTOI1EE 

278 GOTOZ2A 

394 IFLEHS ADS IATHENPERTHT : FRIHTSRCE Ts 
QOTO184 

314 IFLEME ADS IS THENPETHT : PRTIHTEPCE ES 5 20 
QTO1S8E 

315 LASLEHC ADS 

316 GOSUBS2A 

319 GOTOd45E 

329 ADC=<A 

325 FOR#e1TOLEHE AC 

306 #éeNIDO$Ee ADS, x, 11 

549 Vale 

350 1FY=GANDHS< 2" QU THEHV=ASCE 8 1-55 

400 HHenEC LETCLEHE ADS M 

419 ADC=AD+A# 

428 HEXT“ 

425 PETURH 

430 IFACSREFFFTHENFEIHT : PRIHTSPELE LENS ADS 
323 :GOT0188 

435 IFLEHE AS LEE ADS 144 THEN : PRIHTELENME A 
$ +13; :GOTOIS 

d4@ A$=MIDSE AS, LEHE ADS 54e 

450 IFHICSE AS, 1,121" 'THENPRINT :FRIHTSFE 
CLA+2 0: : GOTO1SE 

470 IFMID&CAS, 1,15=" "THEMNPRINT:FRINHTEFC 
€ LA+LEMC AS +1 3: : GOTO1SE 

599 REM 
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319 IS=LEFT$CHS, 32 

529 IFLEHE AS I=STHENISE IT $+ "0": COTOLBHEA 
539 AS=MIDEE AS, À : 

540 IFA$=" "THEHI$=I$6+ "0": COTOLA6E 

559 IFMID$ AS. 1,102" "THEHAS=MIDSC AS, La: 
GOTOS40 

360 XS=MIDEC AG, 1,15 

970 IFHS="H#"THENI SSI $+ "A": LOTOISHEE 

569 IF#4%="C"THENSGE 

599 IF#$="S"THENASEMIDSE AS, Z 2 

595 A1$="" 

698 “=1 

619 Y#$=NMICSC AS, ", 14 

628 IFYALC TS = DANONE +0 MANDHOTE AECE NS 
#A4QAMCASCE $C #4 7 ITHEHÉ GA 

639 A18=<A1#%+"$ 

635 IFLEMSA1$ =LENC A$ THEHESE 

649 REM 

645 Y="+1:GOTO61E 

659 REM 

655 IFLEFTS#C IS, 1 = "E"ANCISE ETT'ANCIGE 
MERK'THENIS=164+"L" : GOT 

658 IFI$=".IMP'ORIS=MJSE"THEMAIGELEFT #6 "GS 
09" ,4-LEMC 1% :3+A1% 

659 LeLEMCA1% : 

669 IFLÉSTHENIS=1I$4+"E6": CÜOTIZAGE 

678 IFL£STHEMNIS=1$+"C": COTOSGGE 

689 PRIHT:PRINTSPCS L1 55 : COTO1S6 

699 IFY$< 2", "ORLEMC AIS SE GTHEMÉSE 

709 AS=MIDSE AS, LEMCA1LS +12 

719 IFLEHC AGO 2THEHÉSE 

720 IFRIGHT$SCAS, 1 = A ANDOLENC A1$ 2€ STHEMI 
$el$+"C" : GOTOLGAE 

739 IFRICGHT#OAS , 1 1 "UE AMOLEHE 416 2 STHEM 
1$=1$+"1":GOTOZGG6 

F4 IFRIGHT®E AS, 1e SU AMNOLEME A1 SE STHENT 
$e TI $4+"H": GOTOLGEE 

Ta IFRIGHT&C AS, 1e OS ANDLENMC 41% 2 STHENT 
el +": COTOISAAE 

F6 GOTIÉSE 

GA ABeMIDE AG, LA 

216 IFMID$E AS, 1,1 2e EUTHEMARS MT DE A, E 
Se A1$="" 


dei 

CE MT D FE, 12 

IFHALE NS Ie GAMES" RE ce ME ANCMOTE HS CE 
AHOHESCE Ed THET JA 

A1S=H1$+"S$ 

e+1: GOTOS4 

IF'ie "THEN AGE 

IF", ORAIREe" UTHEMES 

AŸ= MIDSE AS ; LEHC AIS #1 3 

G IFAbe", 4 I UAMNOLENMÉ AIR SE STHENT HET H4UE" 
: GOT AGE 


RUE 


GE = St e m 


Ut it 


Ï 


e 
Se 
Sd 
ST 
39 
15 
32 
34 


SE LD LD D CO QC 


1445 IFLEHC A$SLEME A1 41 THENI ET ME G 
QTOSAGE 
LOF AEeNMIDSE AS, LEHC A1 141 
1919 IFMIDSE HG, Z, 11e", MTHEHÉESG 
1424 IFH$=" I, YUTHENT EST S4NUE "CS COTOSHE 
1434 GOTOSESE 
266 RESTORE 
2814 FEADILS# 
2615 GOSUB3410f 
2824 IFI&=ILSTHEMZ A4 
LASA REACILS: GOTOEG1 64 
2844 REACC:MASSRICHTSE TS, 12 
2115 IFHAS="A"THENGOSUES AGE 
124 IFADS="" THEHZ SI 
2154 HA=AC 
2131 HAGSHEXSE HA 
2132 IFMA$="C"THEME1 46 
2135 ADS=A1$: LOSUESEG : A1=f40 
2135 IFMA&="L'THENGOSUBS359E 
2144 POKEMA,C:HA=HA+1 
2145 IFMAS="CMTHENHEI EE 
2146 IFMAS="L'THENETÉE 
2159 AD#é=<A1$ : GOSURSE6 : A1=ADC 
2193 IFALS#1GMANDÉ LEFT T6, 3 1e" JMPORLEF 
T$E 16,3 =" ISROITHENCOKEHA, A1 : 4e 1 
2156 IFAYTHENA ES : HASHA+E : COTOS 166 
2164 IFALS#1BATHENPORENHR, A1: HA=HA+1 
2174 IFAL:2SETHEMCOERER. A1: HASMAXE 
2188 FRIHTCHRSE 150: 
2186 HAS=MIDSE HAS, 25 
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LFLEHS HAS ed THEHE 196 
HASELEFTSC "684", 4LEHE HAS HAE 
FÉIHTHAS :; "— “ 
1FC=GTHENCS= "ER" : GOTOZEAE 
CeMID$é HEMSE CN, 20 
IFLEHCCS 1 THEHC = "AG" 4 CS 
2249 PRINTCS#:" 14 
2201 A2S=ALS: IFMASS :"L"THEH220S 
22GE A1S=MIDSEHEXSHE A1 1,20 
2203 IFLENÉA1#o=1THENAIS=" 6 "+H41% 
cee4 IFA1S=""THEHALS= "GE" 
2285 IFMAS="K"ORMASE"UIUTHEMNAISELEFTSE "66 
Q", 4-LEHE A1$ 141$ 
2214 IFLEHÉA1S$ = LORLEMS A1 S$ 2e STHENAIL SE "A" 
+H1% 
22288 IFLEHSA1S$ = THENPRIHTALS: SPC 5 
2234 IFLEMÉA1S = ATHENPERTHTARIGHTS#E A1, 3 
SPC LH LEFTS A1, 2 13: SPC à 
2244 IFLEHÉA1S =OTMHENPRIHTSPES SG 5 
2245 IFMAS="L'THENALSEAES : ASSSLEFT SES "GA 
",4-LEHCA1S$55+41$ 
2250 PRINHTLEFTSE IS. SH: SPC 
2268 IFMAS="CUTHENPEINT : GOTOEE 
Lera IFNAS="A"THENFEIHT#": 
2290 IFMAS="E"ORMASESU'FE"ORMASEUEUTHENPETH 
LR ms 

2299 PRIHT"'$"; 
2300 FRIHTA1S$; 
2319 IFMAS="A"ORNAS= "EN" ORNASE"C'OIRNASEUL 
MTHEMPRIHT : GOTOZG 
2315 IFHASZ"FUTHEHPETHT "M"; 
2324 1FMA$="E"ORMASE "CS ORMASE"HIORMASE UT 
ORMASEUJUTHEHPERIIT", "5 
L334 IFHAS='"E"ORNASS "CG" O0ORMASE"TUTHENFERTH 
T'en ÿ 
2344 IFNAS='"F"'ORMASRE"HIOIEMASE"UJUTHEMPETH 
T'"'" ,90t : 
2359 IFMAS="E"TIRNASREUEUTHENHPRIMT!" 0" 
2369 PRIHT:GOTOZ 
2008 AS=MIDES AS, 
Si IFHID$e AS, 1,122" 6OTHENASSMIDEC AS, EU 
3024 “= 
2934 Yé=eNdID$e A6, "15 


Pi D Po RO Fi Fo 
bise hehe 
LD O9 AO 0 9 CO 


MAT) © OS -J 


3845 LFYALE TS LS GANOS SEE UE AMDHOTÉ ASC 6 à 
SH GANCASCE SE £ #47 THEME 115 
3456 A1$=A1$+1% 

S66 IFLEHS A1 eLENC AS STHENHSAEE 
674 ferai: GOT 
LeLEHS A1 
IFL:ETHEHS IE 
BETLEH 
POP : GOTOÉSE 

4 FEM 

90e ECefhi-Hfs 

S1A IFHBSCEC ects AT HEHPOF : GOTOESE 
3520 IFELSATHEMHEC=#1 HEC 

539 AIsEC 

3540 RETLFH 
AAA HLet:FEIHT 
AAAS GOSUESEA 
4919 PePEEES AC: CGOSUBESÉSEAE 
A1 ADHSNMICDHE HE PA TERES 
ABS READIS 
Aer GC HEAR IE SAGE F1 
4444 FEACC 
4945 GOSUESGASE 
4954 IFCESPTMHENGOTOAGES 
AGE EsFRECE 
APE MASEZRICGHTEE TS, 11 
4494 ACSELEFTSE "GG", 4-LEHE ADS 440$ 
4190 CH$=ADSE+" ! 
4114 PHENMICSE MESSE EF 1, 
4115 IFLEHC FPS eATHENPH= "EE" 
4124 IFLEHE POS ÎTHENHF EAU 
4139 CHéS=CHE+FE4N " 
4144 IFHAS="CD'THENCHEECHE +" Mi QU 
TOd3z A 
4159 AD=AD4+1 
4164 F=PEEKS AC 
d1r6 PheMID$E HER 5, 20 
4175 IFLENCFS SUTHENFÉ#= "EG" 
4189 IFLENMCPS 1e THENPF HE" AUS 
4126 CH$=CHG+PE4" " 
4264 IFHAS="A"ORNAGE"ENORNASE"ENCENMASEUF 
MTHEHCHS=CHS$+" M:A1zP: GÛTO4ZFE 
4261 IFMAS="CG'ORNASE HNIRMASE'LITHENCHEE 


st Eat à 


f 
Ÿ 


Ars D SE 


à Er LD LD Où 
RENE 
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CH$&+" Aie: GOTO4E FE 

4216 A1=CEEEE AD 

4284 AC=AD+1 

4239 PæPEEKS AC 

4244 P&=MIDSE HAE Pi, 

4245 IFLEHE PS GTHENP SE" E" 

4254 IFLEHC Pie 1 THEMP SES "ENS 

4e CHé=CHG+P +" : 

4274 IFMAGEUL ANDRE HESATHEMAT AC 147 

4289 IFMASE LANDES ATHENA = AD 1-0 #1 DE 
pi 

4285 IFALSETHEHAIS4#16E+A1 

4296 ALGSMICEE HE GE A1 1, 

4295 IFLENCA1S = GTHENAISS= "EG" 

4348 IFLEHS A1 Ge LORLENS AIS GR STHENHAl SES "EG" 
+A1$ 

4317 IF MASe"CUORMASYE UT OEMASE "II ORMASE" 
K'ORMASE ML SI ANDLEHE A1S$ = ETHEHOCE 1 

4315 IFODSITHEHOOSE : A1 LE AE 4 AT E 

4328 CHéECHS4+LEFTSC IS, Et" 1 

4530 IFAA="CUTHEH44SE 

4344 IFMASS"AUTHENCHEECHEA "EH" 

4354 IFMA$="E"ORMASS "FU ORNMARES MEUTHENCH#= 
CHÉ+ " [4 " 

4369 CHEELCHG+ NE U+ATLS 

4374 IFMAG="A"ORMARE"ENORMASES MC UORNAARE NL 
"THEH44535 

4386 IFHA$="FUTHENCHÉS=CHSA "I" 

4539 IFMAS="E"ORMASE "CG" ORNAGE HN RNA 
MIMORMASE"JITHENCHEE CHE +", 

4395 IFHASS"F"THENCHEE=CHE+" 

4408 IFMAS="E"ORMASS "CG" ORNMASEUTITHENCHEE 
CH&4+ "A" 

4419 IFMAS="F"ORNASE= "HI ORNMASE"IITHENCHE= 
CH " *“ " 

4424 IFMA$ES"E"OENMASE"EUTHEMNCHE= CHA" I 
4438 PRIHTCHS$ 

4435 IFLITHEHLPEIHTCHS# 

4449 AD=AD+1 

4454 HLeHL+t 

4464 IFHLe#14THEHHLE 

446 IFHLSATHENGETHS :TFHBE CE CHREE 13 1ANCHS 
€ CHRSE 27 ITHEH446S 


4474 IFHESCHESE ST OUTHENLI=A : GOTOZA 
4459 GOTO4f1f 
6494 GOSUESZS 
6914 PRIHTCHRS#E 1555 CHRé 14 5; 
GAZ PRINTUENS ADS; Mit TFOCSATMENERE 
QE FORES1TOOC : OCR 6 He MEURT 
GAzS Ce 
ÉD30 GETCS 
SAS IFCHRCHRGE LE OTHENMPÉTHTEHESE 15 1: GOT 
ef 
6949 FRINTCS#: 
EB41 IFCH=CHRSE IS ITHENPETHT : GOTOÉASE 
Ês IFCHE" MANCLEHS OC SE O1 1e THEN 
Ads IFCéet UTHEHEAIA 
645 IFASCE CS #3 A0RE AGCE CS 1 HS UAMDASCE C 
Soc #41 JORASCE CS CE HAETMHENÉES IE 
AE OC SE OC Ve OC SE DC CE 
6469 IFLEHE OC&é QC ee ETMEMOC = 0041 
ÊDÉS IFOCHETHENHPETHT : GOTOEHEE 
ne GOTOSASE 
194 IFLEHÉ OC OC 1 EE THEMPRIHTEHESE 11 


becs 


ge Ceci: AABSACE : AA=AC 
36 FOR = 1TOUC 


ADS 

GOSUBSES 

QC 1e f0 

POÉEAA+ 1, QC 

HET 

ADC=AA+ÛC 

ACHENMI DE MESSE AD 1, 0 

GTR EE 

Taaae CATAMERECD "HE, MORAE "1, COR AE #5: 
MASLEMS #6, PPHPOUCHE, MCIRAN" #S 

LAGEE CATR"ASLO", #A, "DRAC", HD, "AELO", HE. 
RÉTI 
19405 CATA"EFLL #16, MORAF "A #11, "ORAG", # 
15 

19964 DATAMAELGMHIE, MOLEDMS HS, MORAL". # 
19, "ORAI "#10, "ASLIMSHIE, "FIH" 

19805 CATAMISRC", #2 

19966 CATAM"ANCE", #21, "BITE", #et, MAHDE". # 
20, "ROLEMS HSE, MPLPDMS HUE, CAMDAM HE 


Des pe pe pe pe pe pe me EE EU 


BE HT mi: 
So A 0 0 tt UE 


DRM MM. oe 
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19887 CATAMEULO, HEA, MEITOMS HEC, CANDEN, 


20; 'ROLCY-#CÉ: FIM" 
LOGE CATAMEMIL HSE, MANDE CHAT 


18214 DATA"AHDG", #25, "ROLE", #6, "SECD", 


38, "AND", 459, CAMNCI MS HD, MROLI".#SE 
14411 CATA"FIH" 


19912 CATAMETILC". #40, "EDRE "#41, "EURE. 


45, "LSRE", #46, CPHAC, HAE, MECIRAT, #4 


14913 DATA"LSRD", #44, MJMPC", #42, MECDRCT 


40, "LERCU #4E, FIH" 
19914 DATA"EMCL", HSE, "EDRF", #51 


19816 DATAMECGRG", HS, "LEFG "#06, MOLID. 


56, "EUR", #59, MEORT "#90 LEFT HSE 
19417 CATA"FIH" 


19915 CATAM'ETSCM HE, MADCEM HE, "ACCES 


69, "RORE" #66, "PLACUCHES, CADCH!, #E 


18914 CATA"RORDO", HE, IMPENS HEL, ADCL 


60, "RORCUSAHEGE, "FIH" 
19924 DATAMBMEL "#64, MADLE "#1 


19822 CATAMADEGM HS, PÉORS M #F6, MSETO". 


F8, "ADCJ", #79, MADCI". #60, "ÉCRIS HE 
19@25 CATA"FIH" 


19424 DATAMSTAE". #61, MESTTE" HE, METAE". 


29, "OTABM EE, DECO ASS, CTEAD", #EA 


18825 CATA"STÉC", #EC, METAL", HEC, METEC". 


dE PIH 


19926 CATAMECCL", #94, METAF M, HA, METEO 
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19828 DATAMSTAGM HAS, METEHMS HSE, CTÉAC", 


98, "STAJ", 499, "TESD", #9, "ETAT", #5D 
1896253 CATA"FIH" 

148936 DATAMLOTA MS HAE, "LOAE"S #1, "LOHA" 
AE, "LOYE"., HA, "LOAE", 445, "LOEB" #AE 


19932 DATA"TAYO "HAS, LOAA", #43, CTHAC 


AA, "LOSC", AC, MLOAC', HA, LOC" HAE 
16833 GATA"FIH" 

19954 CATA'ECSL", HE, MLOAE", #61, "LOL" 
Ed, "LOAG",#ES, "LOEHMS HBE, MELYC M, HE 


19855 DATAMLOAJ",HES, TSEC", HE, LOT", 


BC, "LOAI",#BD, "LOAJ",#BE, "FIN" 
18836 DATA"CPYA", #04 


19938 DATA"CMPE", #01, CPYE", 404, "CMPE". 


CS, "DECE"H4CE, MIMYCMS RCE, CMPA", #09 


.# 
# 
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18939 CATAUCE SDS HCH, MCPTEN, HCC, "CMPE" # 
CD, "DECC",#CE,"FIH" 

19944 CATA"EHEL", #06, MOMPE", HDi 

19842 CATAM"CHPCG!, #0, M"DECG'". #DE, MOLOD MS # 
CS, "CMP, HO, MCMPI", #00, MOECT", #DE 
198453 CATA"FIH" 

1944 CATA"CFEN",HEG, MOBCEMS HET, "CPHE", # 
Ed, "OSBCE",HES, "IHCEMSHE6, "IMECM"SHES 
146045 CATA"SECAMHES, MHOPOU HER, MORE, # 
EC, "SBCC", HEC, "IHCCMS#4EE, "EIH" 

19846 CATA"BENL"., HF 

19948 DATA"SECE",#4F1. "SBCOG'HFS, IHCG" # 
er #FS, MOBCUJMSHES, MERCI", #FD 
19458 CATA"INHCI".KFE 

19052 CATA"EHC" 

20018 CALLACCGA : PAPERS : INA: POKEHSES, GP 
RIUT 

20824 PRINTTABS 18 CHR EE 4 CHERE EP I UJASSEN 
BLEUR - CESASSEMELEUR "CHERS 4 

20434 PRIHT:PFAIHT:PFETHT:PFEIHT 

ca944 PRIHTCHRSE 13 UN ATTENTIOMIIT ce 
Programme" 

ZAOSOPRIMTHREE 13Z à doit étre recoFig & 
ans la moindre 

LAGéG PRINTOHREE 1 modification, 
SOATGPRINT:PEIHT 

coast PRIHTEHRE LE 4 Four dés ingtruc 
tions, se referer" 

LG94 FPRINHTOHRSÉ ASE an manuel," 

28149 PRINT :FEIHT:FPAIHT 

24119 FRINT'APPUYER SUR ‘RETURH"" 

20124 GETHE:IFHÉTHEHCLE : PAFERE :THKE:RETIU 
EH 

26000 IFFSRFFTHENESS AE 

26814 OHINTCP##16 +1G0T025930 


Q, 20060, 2970, SOUS, LS, A1 


cat, SAS 
Es i4 
29e ONINTÉF #16 3 "COTES 114, 295120, 2513 
291464, LS 1 SA, SU IéG, SSP, 2e 
Los RESTORE : RETURH 
caad4é COKÉEHE . ES RETURN 
25069 DOKE4ES, 7318 : RETURN 
CoGé COFEHES, FS1S  TUEM 
So4r4 COFE#EN, F4: RETURH 
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Fi 
in 
—- 
im 
RS 
Em 

LA 
Est 
3 73 
7 M 
de 


COoBsA COREREN, Fo 

Lada LC POLEXÉD VÉ RETUR * 

25144 COÉEHER. Fe er 

23119 COFERES, FE 

25120 COKRERES, 6614: FETUR 

ee COFEHES , :RETUFH 
9144 COFEHEE, :RETURH 

25155 COKEHES . :RETUEH 
alé COFEREN. de: RETLIFEH 


3: RETURH 


25170 COKEHEE . î 
3: RETURH 


2614 COREREE.S 
24944 FEM 

24054 IFIHe"FINITIRT Me TE HCUTMENT Sr 
POF : GOTOAAEE 





2086 RETUEH 

28144 IFILÉ="ENCUTHENFOR : GÜTOÉ SA 
3011 IFILS<"FIH"THEHRENCILS 
38129 RETUEH 


Démonstration de l’Assembleur 


Vous venez de taper le programme ASSEMBLEUR/ 
DESASSEMBLEUR et l’heure est venue de procéder à un 
essai d'assemblage. Nous vous proposons pour ce faire 
un petit programme qui vous permettra de vous familiari- 
ser avec son fonctionnement. 

Après avoir tapé RUN l'écran affiche un point d’excla- 
mation. L’assembleur attend vos directives. Ecrivez main- 
tenant les lignes suivantes : 


1400:LDX#H $41 <RETURN> 


400 est l'adresse d’origine du programme d'essai. 
Charger le registre X (Load X) avec le caractère “A” dont 
le code hexadécimal est 41 


1402 :JSR$SF73F <RETURN > 


Appel du sous-programme (Jump Sub Routine) d’affi- 
chage des caractères situé à l’adresse F 73 F dans la 
ROM. 


! 405 : IN X 


Incrémente le contenu du registre X (INcrément X) de 
un caractère. 


1406:CPXH$5B 


Compare le contenu du registre X (ComPare X) 
avec la lettre suivant ‘‘Z”’ dont le code hexadécimal est 5B 


! 408 : BNE$ 402 < RETURN > 
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Revient (Branch if Not Equal) à l’adresse 402 si le registre 
X ne contient pas la lettre suivant Z. 


| 40A : RTS < RETURN > 


(ReTurn from Subroutine) Revient au Basic si le registre X 
contient le code du caractère suivant ‘‘Z”’ dans le code 
ASCII 


Tapez <ESC> pour quitter l’assembleur. Vous pou- 
vez maintenant démarrer votre programme en langage 
machine en tapant : 


CALL t# 400 


Si aucune erreur n’a été commise, l’alphabet doit s’affi- 
cher sur l’écran. 
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Le Désassembleur du pauvre 


Ce terme n'est pas du tout péjoratif. Il s’agit d’un pro- 
gramme extrêmement simple qui permet, à partir d’une 
adresse de début que vous devez spécifier, de visualiser 
le contenu d’une zone mémoire. 


10 
20 
SO 
40 
50 
60 
70 
80 


90 
100 


REM *% JACOB EDGAR & JOSEPH PORTELLI + 
REM LE DESASSEMBLEUR DU PAUVRE 
REM 

CLS 

INPUT'"ADRESSE DE DEBUT : ";Xx 
FORI=XTO65535 
PRINTHEX#(I1),1,PEEK(1) 
IFPEEK(1)=1S20RPEEK(1)=13STHEN 
PRINT"##"ELSEPRINTCHRS (PEEK (I) ) 
WAITS0O 

NEXT 
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PROGRAMMES 
DE JEUX 





Le Pendu 


Il s’agit dans un minimum de temps de découvrir le mot 
caché que vous propose l'ordinateur. Vous connaissez 
seulement la première et la dernière lettre du mot ainsi 
que sa longueur. A chaque fois que vous faites une propo- 
sition de lettre, deux cas peuvent se présenter : 

- Si la lettre fait partie du mot à découvrir, elle s'inscrit à sa 
place dans le mot. 

- Si la lettre ne fait pas partie du mot à découvrir, un 
élément de la potence apparaît à l'écran. De plus, le jeu 
est agrémenté d'effets sonores. 

Quelques mots vous sont proposés à partir de la ligne 
10000 du programme. A vous de créer votre répertoire de 
mots selon le modèle présenté. 

Enfin, il faut noter qu’afin de maintenir l'intérêt du jeu, 
l’ordinateur ne propose jamais deux fois le même mot à 
découvrir, sauf si l’on fait RUN bien sûr ! 


ee IMCTIEATX 







L REMTÆFE TELL Bd: 


5 es À TO EE 

LAA PEACE 

LL TPFAGE UE TMITHEME Tee 1 el GE 

LEA HET 

1354 TTeTT+ 1: Ji ATHENA 

10 PET CLS :ER THTL ES MEL MOTS EN REMO 
IRE" 
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155 FRINHT'ONT TOUL ETE LTILISES., "PÉIHTE 
HÉHE LP ENT 

148 Ce TMTE HD LE T +T 

ASE IFTE Ciel TMENT 4 

LÉ TE 

17 
15 
SA FO IE 
ei RERCAIE 

SA HEST 
A Le LEME : A4 
og Lists 
Ë 
2 


BL et: EXT 





1 E AFREC OR) 
sh PLOTASs BLOTOSLE 1 
SG PLATE, 1 ,18: FLOTS4,4 16 
314 PFLOTES, 1 "La" PEU PSRuSS EN TE 

OS POÉERHESES, SE: PRTIHT 

El RATER PRE Lu 
4 IFLSATHENSSE 
SU PRINT" "3 

JE FOREST OL 1 
IFF MID IS 3, 1 3 ESORASCE MID A, 
CE OOTHENPETATAT CIE AG, 4, À: Jet 
1e THEMJJeQ:Létet Lili: GOTOdd 





6 Es D Di RU Pi Ii 









PRINT", ": 
IFL+SATHEHSEE 
ASE PRINT" 
SE MESTÉ 
3 FRIHTEIGHTS#E AS, 1 
SA ESselA:REN HOMBRE C'ESSATE 
AS POÉERLES, Ed: PRINT 
59@ PRINT'GQUELLE LETTRE FROPOSEZ-VOUS 7" 





Si Fes Hé 
Seg IFHES-CHESE LP OUTHEHTASE 
SOA IFPE HA IORE SHSATHEHSSE 





sé DGELHTE RHDE 1 32 341 
Sr OHOGOCOTOSSR, CAE 
SOA FORÉRETOL 1 

SE ie Rose 


60 HEURE à 1 HE HGTHEHE FE 


SE IFLESATHENPLOTE,S SE, Hé: GOTOÉ dE 
Sa PLOTÉHEZ 1, 22, H$ 


644 1 

69 LI= Lil 
DORE AR 

HEXT: 


g 
mn 


Goo oo © QC OME 


à 
J 


Ê 6 
COTOra0 
99 FORASLSITOSSTER-1 


Et 


IFLE ES OTHENFSE 
IFHICEE AG, 1 ES HSTHENFSA 

Lim] 

IFL:Z2ATHENPLOTE. ZE, M$: COTOFSE 
PLOTÉ HE IT, DE, M$ 

J=1 

LisLi-1 

HET 

FEM 

899 IF.I=GTHEHASE 

14 Jen 

SEA IFLI*ATHEHESE 

530 PLOT1,24, 12: PLOTEZ, 24, 1: PLOTS. 4, "ERA 
VO; VOUS AVEZ GAGHE 111 : 

E4E IFER=ATHEHT 146 

598 FORF=506 TOSG  STEF-1:SOUHD1.F.IS:HE 
AT: ZAP : ZAP: EAP: EAP: EAP: GOTO114A 

269 KREM 

599 PLOTI,24, "ECHHE FÉDFOSITIOH 


39 IFER=1THENPING 
919 HAIT1SG 
324 GOTO49G 


Ti I M M 


DD MEMBRE TU ER 


2 
S 


934 REN 
a4@ 


PLOTI,24, "MAUVAISE PEOFOSITIOH 


380: PLOTÉCHI-ES 22) 1,86, H8+"- 
1906 ES<ES- 

1419 ESSSSTRGTES 2 

1411 ES$=" MAMIDGES, EE 

1812 PLOTSS, 1.ES$: PLOTES, SES 

1915 OHES + COSUEZ ONE. 1956,1888, 1758, 1620 
1540. 1446, 1550, 1300, 125 
1429 IFBR=1THEHE“PLODE 


4 
A 


F3 69 
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E MAITI SE 
1FES 8THEN4SE 
4 PLOTI,£4,"LE MOT A TROUVER ETAIT 


LA 
Lie 
LAS 


E A: 


APE POÉERSES, ES: PRIHT 

GE FOR = 1 TO 40 LEHE F0 Æ 

SÉAPRIMTN 

AE HET 

Fi Rue 

G PLOTI., SE, "ESC SARRET — RETURHESMHOU 
JL" 


15 
15 
LE 
1 
11i 
1145 
EAU 
L1SAGETH 
. "GE 
1 


mn 


TFHSCHRSE LP OTHENTEST : CLS : PRTHTCHES# 
à: EH 


AS LFHGE GS CHRRE LT OTHENT 15 


i ue 


Fi 
1 
1 
1 
H 
1 
“1% 
214 CLS: GCOTOISA 
ceg PLOTS.24,% 
eS4 FORES1ATOIS 
1244 PLOTÉ, 20, CHERE LEFT 
1254 MEST : FETUEH 
L'HAE RER AS IEP) 
1318 PLOTIS.# 

Se PLITI4, 2 CHE LT 
1534 MEËT : RETURH 
PLOTIZ. 4,2 
FORHSISTOSÉ 
PLOTE, @, CHRSGE LEP 
HET : FETLIEN 
FEMCORCE 
PLOTE4, 1,3 
PLOTES, 1, CHRGÉALET 
FETLRH 

HReTOs FEMTETE 





nu it 


ee 
ÉEARERX 


ame 


Et Uri 
> 
+ 





Ma 


Qu: 
TT 
1 
J 2 
Fe 
5 


FORY=1T0S 
PLOTES 4 6, CHARGÉ LE 

MEST, 

PLOTE4.,%, 5: PLOTES, 4, CHRGC LE 
FETUEH 

FORT be 


Hi CB JD en & CJM En 


RE 


ct 


RUE 


ee 





4 L'GOTOLE SE 


Ti Pi D D CH ON CN LA CR CA BE BE BE 0 Qi Gi ti 


LB Gi Pa Po D 10 € 


EX 
Le, 


FOR _ TH 5 


Go 
$ 


1654 EUISA  CHESÉ EF 
1664 HET, 
1674 RETURH 

Frog PLOTES, 16, 1: PLOTEd4, 14, CHR 1RF! 
1769 PLOTE23,11,S5:PLOTE. 11, CHRSE 127 3 
1779 PLOTEZ,12,5:PLOTES, 12, CHRéé 127 à: PLO 
Ted, 12, CHR 127 1 
1 Fe RETUEH 
3 PLOTES. 10, 1 :PLÜTS6, 19, CHR 1272 
PLOTES, 11,5:PLOTSE, 11. CHARS 127: 
PLOT25, 12. 5:PFLOTSÉ, 12, CHRSC 1287: 
PLOTEF, 12. CHRgé 127 
RETURH 
PLOT2E.,5,6:PLOT25.5, CHRS$C 127 5 
FOR ITOZ 

208 PLOT21, 44%, 6: PLOTES, 44, CHR ILET à 
2416 HET 

2426 PLOTé1,7, 5: PLOTEZ, 7, CHR$C 187 à 
2434 FETURH 
cO9û FLOTE?,5,CHRSÉ 127 1 
2104 FÜORA=ITOUE 
2119 PLOTES, +, CHR 127 
ir MEXT 
2156 PLOTEP,F.S:PLOTES, PF, CHR 12 5 
£144 FETURH 
3406 FOKER2ES, 3: FRIHT 
3GnS BR= 
3910 PAFERE : IHKT : FÉIHTCHRSE 17 1: PRIHT 
2420 PRIHTOHRSE dOITAES Ed CHERS EF AMD CHER SEE 
Er 2" JJEU Cl PEHOLIUCHRSE 4 

2934 PRINT :PRIHT:PRIHT:PRIHT:PEINHT:FAINT 
SPRINT: PRIHT 
3448 FRIHT" 1 - Jeu avec bruit." 
3959 PRINT" ë — Jeu sans bruit." 
3A64 PRINT: PRINT: PRIHTCHESE 128 5" LA TO 
UCHE ‘ESC’ PERMET CE SORTIR." 
Sr GETHS:IFH&= "I UTHENER:1 : FETUEH 
IFHÉ=CHRSEÉ LT OTHEHPOF : CLE : EHC: 

IFH$&< SUSUTMHENSA TE 

Re 

1 CATA"CHROHNOMETRE", "MAPPEMONCE", "SE 
ICE" "PERCE-OREILLE" 
4 CATA"ANTICOHETITUTIOHHELLEMENT", "0 


Ra 


bb he he pi 
9 0 lo re © (0 À 
TDR 


AO Ms Dr LE Lt Lt à 


+ 


a 
te 
0 


D ou 1 CO 
308 oo © 


ND item 


mme di di Gi 
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ACAHUETE". "ASSASSIHAT", "HASCHISCH" 
18828 DATA"ASTHME", "ISTHME", "OREILLOHS", 
"ECZEMA", "GRIBOUILLAGE", "CHOEUR" 

19839 DATA"CHRONOTACHYGRAPHE", CIMEMATOG 
RAPHE", "STYLOGRAPHE", "IDEM", "YACHT" 
18848 DATA"EULLE", "HYDROPHILE", "PHILATEL 
ISTE", "CHLOROPHYLLE", "CHOCOLAT" 

19950 DATA"DICTIOMHAIRE", "ORHITHORYHQUE" 
, "YAQURT®, "POLYHESIE", "JUJUBE" 

19864 DATA"CROCODILE", "AHIMATIOH", "MAGNE 
TOSCOPE", "COCCIHELLE", "COCCYX", "BLEU" 
18874 CATA"THEIERE", "SPAGHETTI", "FORET", 
"ECUREUIL", "SCOUBIDOU","OTITE" 

19059 DATA"PORTE-PAROLE", "PORTE-PLUME", " 
PORTE-WOI", "HAUT-PARLEUR", "MEMUET" 
18898 DATA"OTO-RHIHO-LARYNGOLOLOGISTE", " 
HURLUEERLU", "VOITURE, "TIMBRE" 

19149 DATA"OSTREICULTURE", "MICROPHOHE", 
POLICIERS", "LAFIH", "POULET", "COC" 

18116 DATA"TAXITEUR", "KEHOPHOBIE", "UKRAI 
HIEM", "ARMEHIEN", "TAXIPHOHE" 

2688 DATA"FIH" 
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Le Loto 


Ce programme vous propose des grilles de Loto, qui 
nous l’espérons, vous apporteront la fortune. 

L'ordinateur “tire” au hasard ‘‘RND”’ 1 valeur qu'il 
nomme Z1 puis à partir de là, on recommence à piocher 
des nombres et les comparer pour voir s'ils ne sont pas 
déjà sortis ; s’ils le sont, on recommence. 








LE à 
1 PEMS. TAC 4 
24 REN#LE 1. 
S4 PAPER : 
AC CAULHCCE 


lseph PORTELLI 


1 

] DÉERSES, 3: 

129 PEINTTSE 2 DCHRSC 4 CHR EP UJILOTO"CH 
F: Ë 4 * 4 Et 

f 


: SE PREAT  PETHTOHRRE TEE à" 
L'arFaræil va +ir F cr: 

LES PRIHTOHEME LES MehiPfres ci des ambr 
gs AU'il Faut 

124 PÉIHTEHRSC LES lire horizontalement, 
M:PRINT 

LES PRIHTOMHESE EE ME, Peine LE 3 
muser!" 


1eé PEIATOEMEME TES Ua joue qu nn les joue 
1er PRTHTOHERE TEE 0 Dans Ve das qi ven 
& joug" 

1 


26. PRIHTCHESC 18 "HE METTRE QUE € MUMEF 
2 PRIHT: PEIHTCHRSE 15 0 EÛHHE  CHAHC 
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134 PETNT:PFETATCMHESRE SSH UAPEUTER SUR HE 
ee 
DS PRTATOHESRE ASS MPOUR JOUER," 
146 ne DE SEC AREREES SOU 
… 1 SPRINT: A5] 






A 
#49 41 IF22271 THENI 98 


+ies 
Gal: TFESSETOREGSREETH 


"AE 
Hi: IFTde SORTE OR 






ZT THENCSO 
LD EdBesTEE Ed 

H IF74< LATHEHZ HE ON 

ne de eu 
SF 2Û0RES=Z1THENHEE 

Op Se STR SE ZE à 

LFERSIATHEHES Re M TES 

26 TNT END 1 MAR 1 : TPS ZSORZE=Z4UR 
FSéSSPORTÉSEFITHENSIA 


H=STRSS 





ee, 


La mt Fr 5: NRC 


JT it 
Et 
2 


DH: 


—, 
en! 









Fu rai 










ue LED ges OMR ES 
34@ Z7=IMTE RHDC 1 40 +1 : IF27=2E0RET= PER 


PPRPAORE PP ROET Fe PIRE 7er 1 THEMA 
350 LÉRESTEGLE ER 

SG IPEFELEATHENE FRE N MATr. 

AGE PRIHTTARE 1 NEA, ER, Té, Sd$, SO0$. JE. 
CHR 131 CHERE LP NL ETS 

+4 TFHE LATHEMAUSTCE; 4, 1, 15: GOT 

AS, MUSTICES SAS ES 

HAE MEME: 1FA= THERE 

414 FRIHT 

HE die 

454 IF ATHEHTÉE 

454 FOR ATOTLR : ZAP:HMAITIÉSHEZT 

466 PETHT:FETHTOHERE LIEN Zieme TIFAGE 















474 PRINTOHRS 132 "APPUYER SUR UHE TOLUCH 


45 GETHE : TFHETRENERLLECCRA 










ï, LU É 
SA PÉTHTCHES — FOLIR REUIOLIER 
16 FÉITHTOHESE 1 EE LE eROUR FTHTE 
Sea FRIHT:PEIHT : PRTHT 
530 PRINTCHRS#( 132 2)"Votre choix :"; 
44 IHPUTH:TFHETORHSETMHEMSNOUNT : CALLHCCHA 
: GOT 
Se TFHE1THENCSLLEOCGR : GOT SE 
Gé EH 
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Jeu d’Addition 


Comme le titre l'indique, ce programme n’a pas vrai- 
ment un grand intérêt au niveau des formules de calculs 
complexes. 

En effet 1 + 1 n’a jamais passionné les grands ; les tout 
petits par contre seront ravis 4 voir sous la forme 


Fes 


le tout écrit en gros caractères, et la réponse si elle est 
bonne en “FLASH”. 

En fait le gros du programme est, surtout dans la pré- 
sentation, un bon exercice. 

Vous avez le choix entre 3 niveaux : 1chiffre, 2 chiffres 
et 3 chiffres. 

Pour compliquer le jeu, il suffit de changer en 458 par 
exemple, au lieu de R<>C + D faire R< >C * D ou autre 


19 CLS 
2 PAPERG:IHÉE 
39 REM 
49 RE 
9Q Z=PEEK(H#£FC 
194 PRINT :PRIHT 


119 PRINT'Voulez vous les c‘Q'ui 


Ts 
ii 
= 
EU 
ut 
pr 
TE 
Es 
+ 


115 PRIHT'ou ?’H'ons :"; 

129 IHPUTAS$ 

159 IFA$="O"THEHE£GA 

149 IFA$="H"THEHSGE 

159 IFA$S< 2: "O"ORASE EU HITHEHPETHT "UNI QUEME 
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HT OUI OÙ HOH":HAITES4: CLS: GOTO1 16 

c84 CLS :PRIHT 

219 PRIMTSPC( 16 CHRS&E à ICHRGE LP OU JREGLES 
CU JEU" 

2e@ PRINT :FRIHT:FRINT:PRINTSFCS 16 CHARS E 
TOM JMÉKELEEEELETAEU CHRSGE à 

234 PRIHT:PRIHT:PEIHT 

249 FPRIHTSPCS 18 1CHRS&S 1510"Ce jeu Congsist 
S a" 

242 PRIHTCHRSS 131 "brouver la FéeFongse à 
la Question" 

244 FRINTCHRS#S1312"poses Par l'ordinateu 


246 PRINTOHRSE 1310)"Mous avez le choix en 
tre plusieurs" 
248 PRIHTCHR&( 151 "niveaux de difficulte 


259 PRIMT:PRIHT 

2932 PRINTCHRS( 131 2"EÛN COURAGE III" 

254 PRIHT:PRIHT:FRIHT 

256 PRIHTSPCS 18 1CHRSC 135 APPUYER SUR UH 
E":PRIHT 

258 PRINTCHES( 1535 2"TOUCHE FOUR COMMENCER 


268 GETHS 

270 IFH$STHEHSGG 

398 CLS :PRIHT:PRIHT:PRINHT 

314 PRIHTTABC3G CHRSE 4 CHR SE 27 1" JMEHU"CH 
R$« 4 

329 PRINMT:PRIHT:FPRIHT 

339 PFRINT'1-Addition de 2 chiffres (-de 
1g:" 

332 PRINT'2-Addition de 2 nombres Cmax.£ 
334 PRINT'3-Addition de 2 nombres fmax.s 
jt 

342 PRINT'4-Ce chiffre Fermet de sortir. 


344 PRIMT:PRIHT 

346 PRIHTCHRSS 14G "ENTREZ VOTRE CHOIX C1 
3 43:"; 

548 IMPUTC 

359 IFC>4THEHPRIHT".,..de 1 a 4":GOTOS68 
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359 IFC£ITHEMPEIHT",, ,de 1 a 4'":G0TO3G6 

399 IFC=4THENCALLACCSA : END 

494 ONCGOTO414,550, 708 

419 CLERAR:CLS:#=09 

424 CeIMTERHD( 1 #10 0: De IMTÉEMDC 1 #18: IF 

C+C:9THEN4ZG 

439 PAPERA:IHES 

435 PRIHT"'COMEIEH FOHT" 

438 PRIHMT:PRIHT : FRIMT:PRIHT 

449 PRIHTTABS 21 CHR à iCHRgÉ EF MJC 

442 PRINT :FRIHT:PRIHT 

444 PRIHTTABS 18 CHARGE 27 10,J4+ M: CHRSE ET AJ 

" 3 C 

446 PRIHT:PRIHT:PRIHT 

448 PRIHTTAB( 18 CHRGE LT Meet; CHRSE à à 

459 PRINT:PRIHT:PRINT:PRIHT 

435 IHPUT'Votre reponse :"iR:kms+] 

458 IFR£ÈC+COTHEHPRINT'"'Ce n'est Fas ca":H 

AITEGB : .J=1 

459 IFJ=1THENJeg : PRIHTCOHRSS 1 1 2CHRS#S 14 2CH 

R# 11 2CHR SE 1 FUCHRSE 11 CHE SE 14 1: GOTO4S 

479 PRIHTCHRSS 11 2CHRS#S 14 TAB 21 CHR SE 4 2C 

HRSS 19 CHRGC 27 MUR; CHRSE à à 

472 PRINT:PRIHT:PRIMT 

475 PRINT"'VOUS AVEZ TROUVE EH "i4; "COURS 
[un 


476 PRINT'APPUYER SUR UME TOUCHE, ":GETHS# 
: IFHSTHEN4FS 

477 GOSUB18848 

473 GOSUBIAG68 

394 G0TO416 

399 FEM##AD CE 2 HOMERES CMAX, 25 

564 CALLHCCOA: CLERR : 4x0 

ar C=INTE RDC 1 4106 1: De THTE HD 1 34106 à: 
IFC+C9SSTHENSFE 

or1 IFéC+C 2 9SSTHENS FE 

999 PRIHTCHRSE 128 Combien font 2" 

3989 POFERSSS, 4: PRIHT:PRIMHTCHRS 4 5 

SDQ IFLELOTHENPETHTTAES ZI ICHRSGE Dr AU MC: 
GOTOÉ 1 

695 PRIHTTABS EI CHERE EE AU 

LE PRIHT:PRINT:PETIHT:PEIHT:PRIHT 

615 IFOSLATHENPETHTTAES 18 CMEGE D 04 
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MC: GOTOÉ EE 

Sir PRINTTABS 18 CHARGÉS FUME MD 

629 FPRIHT:FRIHT 

L239 PRINTTAES 18 1CHRSE SP UU pee 'OHRGÉ à 1 

648 PRINT:PFARINT:PRIHT: FAIT 

ESA INPUT Votre reponse :"Riszk+l 

GO IFRSSC+OTHENFÉINT"'Ce m'est Pas ca": 

AITEHE :.Iz1 

SFA IFJ=1THEHJ=S : PRIHTCHESSÉ 11 CHARS 1 4 CH 

RC 11 CHR SE 14 CHARGE 11 CHARS 1 4 1: GOTOÉSE 

ÉS24 IFRSILATHENHPEIHTOHER SE 11 1CHRSE 14 ITAES 2 

1 CHR SE À ICHRSE LE CHERE DT AMANRCHESGE à 

683 PRIHTCHRSE 11 CHR 14 CHARS d TAB 18 50 

HESE ET JUH MRCHR&E À à 

655 PFRINT 

ESQ PFRINT'Vous avez trouve en "ik; "coups 
! " 

691 PRINHTCHRSE 155 "APPUYER SUR UHE TOUCH 

E" 

692 GETHS: IFHSTHEHESS 

833 GOSUB16966 

635 GOTOSÉG 

F99 REMX#AD CE 2 HÜMERES CMA#. 50 

719 CALLHCCOA: CLERAFR : #=f 

Fe CeINTÉRHOS 1 241008 %: De IHTÉRHCC 1 41006 
a: IF C+C 999 THEH7EG 

750 PRIHTCHRSE 153 "Combien font :" 

769 POKERCÉES, 4: PRINT: PEIHTCHRSE à à 

779 IFCÉI1GGAHDCS1ATHENPARIHTTAEBS 21 CHARGE 2 

Fa"J "C:GOTOS18 

F8 IFC<1ATHENPEIHTTAES 21 CHARGE 2 AT OMC 
: GOTOS1A 

799 FRINTTABC 21 CHARGE 2 MUC 

819 FRINT:PRIHT:PAINT:PFRINT:PARIHT 

829 IFD<1A@GAHDC:10THEMPRINTTAES 18 CHR SE 2 

+ dr MCCHRSE 4 à: GOTOESG 

834 IFC<19THEHPRIHTTAES 18 CHR ZT D + 
MCCHRSS 4 à: GOTOESE 

849 PRIHTTABS 18 2CHRSE 27 24  OCHRSE à à 

859 PRIHT:PRINHT | 

269 PRIHTTARS 18 CHR SE à CHR SE 27 UN Je ee 

MCHRES À 2 

879 PRIHT:PRINT:PRIHT 
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584 IHPFUT'Votre reponse : "ohms 

899 IFR<>C+OTHEHFPRINT'"'Ce n'est Fas ca":H 

AIT290:.J=1 

999 IFJ=1THEHJ=6 : PÉIHTCHR SE 1 1 2CHRSC 14 2CH 

RC 11 2CHRSEC 14 CHR SE 11 CHR SE 1 4 5: GOTOSEQ 

919 IFÉC+D 1€ 1 68AHD6 C+D 12 10THEHPRIHTCHRSC 

11 2CHRS$E 14 TAB 21 2CHRSC à à: : Jai 

928@ IFJ=1THEHNJ=8 : PRIHTCHRS 16 2CHRSC 27 5"H 
MRCHRS$C 4 5: GOTOSSA 

939 IFÉC+C05<160THEHPRIHTCHRSE 11 SCHRSE 1 4 DT 

AB 21 CHR 4 2CHRSC 1Q CHRSÉ 27 5H MR; :Jz 

1 

248 IF.J=1THEHJ=8 : PRIHTCHRSS 4 à: GOTO95A 

959 PRIHTCHRS#S 11 CHR SE 1 4 TAES 21 CHR SE à iC 

HRSE 19 CHREE 27 HIRCHRSEC 4 à 

98 PRIHT:PRIHT:PRIHT 

999 PRIHTCHRS$S( 129%"Vous avez trouve en " 

5#3" coups !" 

993 PRINTCHRS( 135 :"APPUYER SUR UHE TOUCH 

E. " 

995 GETHS: IFHSTHEH1G69 

1908 COSUB10098 

1919 GOTO7AG 

10000 REMXXS-P CE CHOI* 

19918 CALL#CCOA 

19920 POKE#2E6S, 4: PRIHT 

108939 PRINTCHRSC 125 2"Voulez-vous continu 

er 7" 

19949 PRINHTCHRS$E 129"1-Pour continuer" 

19059 PRINTCHRS$S: 1295"2-Pour retourner au 

Mer" 

10069 FRINTCHRS(C1292"3-Pour s'arreter" 

19979 PRINT :PRIHT:PRIHTCHRSE 135 "VOTRE C 

HOIX :"; 

19988 INPUTH 

19085 IFH<1THEH19095 

10990 IFH:3THEH16966 

19199 IF H=1THEHRETURH 

18119 IF H=2THEHSG@ 

19129 IF H=3STHEMEHD 
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QUIZ 


Ce jeu est un questionnaire encyclopédique qui pas- 
sionnera toute la famille. 12 questions sont données à titre 
d'exemple à la fin du programme, mais rien ne vous em- 
pêche de créer vos propres questions-réponses sous une 
forme générale ou thématique. 

Les questions et les réponses sont présentées en fin de 
programme sous forme de DATA. La procédure d'écriture 
est la suivante : 

DATA “Question”, ‘‘1"° réponse”, ‘2° réponse”, ‘3° ré- 
ponse””, numéro correspondant à la réponse exacte. 


Exemple : 

DATA “MARIGNAN?”’, “1249”, “15157, ‘1789, 2 

Il faudra veiller à ce que la dernière ligne du programme 
soit impérativement : DATA “FIN”. 


Fe IAE 





3 RETRXK QUIZ Pr 
à DIMLE SH: 













Eee, pee et 
Je Ë TIOME PC CHRE à 
4 FÜÉE# Eur 

LE PÉTHT'APEUTER SUR RETURN" FOUR COMME 
HCER" 

FEU LETHB: IFRS LH Lis AE 


É UAH LHEGE LS 
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SUITE EE 

CLS 

FÉIHT: PRINT :FEIMT 
4 FRIHT"IL 4 EM MEMOIRE El" GUEST IO 


ms D LD mi 
ee 
ii cn 


= 
à 
= 


NE PORLEREES, 11: FEIHT 

1269 IMPUT'COMEIEN EH VOULEZ-VOUS "5 GLS 
134 GOozVALE GDS 1: IFMICDSRE ETRSE QD 0, Eee IL ST 
HEHEG 

144 IFGDS BORD EST THEMES 

145 RETUEH 

154 FÜRAz 1 TOILE 

164 READAG:IFAEE'FINMTHEME Les - 1] ER lE 
OTO154 

174 REACAS. AS, 4%. 

159 HEXT 

199 FORS=ITOEIl LEE SAC HEST : GOSUESH 
195 QPF=t:PÜzÿ 

1536 Let 

195 FOREREES, 19: PRINT: PFETHTOHRSE 158 "POI 
HMTS= "FO" " 

294 P=UF+1 

245 MU=GU+1 

219 IFUPFGCTHEHEGE 

Let FRESTORE 

ss HO TINTEENOE 1 TEAT +1 

ed IFLE HO = 1THENEZSE 

254 LCMQOz1 

233 IFHGE ZTHEHZSG 

FORE=1TONHC-1 

FEACAS, ASS. 4%. AH 

HET 
FREACAUS, ASE 1 5, ARE Li, ARC, FR 
POÉESZS, 18: CLS : POHERES, 7 
PRINHTCHR SE 138 2 "QUESTION H.7GU 
PRIHT:FRIMT 

PRIHTCHRSE 129 LEFTSE AUS, 38 5; 
PRIHTCHRSE 123 MIDSE AUS: 3401 

4 FOKERZÉS. 6: PRIHT 

FOR 1705 

PRINTA" — MAG 

345 PRIHT 

354 HEXT 


Ci 
_ 
TU 
_ 
Es: 
L 


me Demi Time 
GUESS GEL 


Gi où Gi Ci Qi oi Co Gi Po PO Po 


EG 
se 


374 


175, 


GETHS : H=YfALE H$ ? 
IFASCE H$ 2=27 THEH7 18 

IFH£ 10RHÈ3ZTHENFIHG : GOTOUS7E 
IFH£ >RTHEHSGE 

POKE#26S, 16: FRIHT 
PRIHT'REPONSE EXACTE. 


GOSUES GE 

PO=PO+1 

POKE#ZES, 19: PRINT 

POKE#2Z69, 15 

PRIHTPO" L 

WAITEGE 

GÛTOE DD 

POHERZES. 16: PRINT 

PRINT" MAUVAISE REPOHSE — RECOMMENCEZ 


GOSUBSA 
PO=PO-1 

POKE#268, 19: PRINT 

POKEH#Z69, 16 

PRINTFO" " 

GOTOS7A 

CLS 

POKE#268, 9: PRINT 
PRIHTTAEX 20 JCHRSE 4 JCHRC 27 3 A CHRS 2 


7I"NPOINTS OBTENUS = "POCHRSC à à 


Pi Sr One Gin 
See CC eue 


1] 


DE cr 


 ODDELCB-IZ Im 


œ 


3 POKE#268, 13: FRINT 
A PRINT"'APPUYER SUR :" 


PRIHT"- *RETUREH® POUR JOUER À HOUVER 


4 FRIHT"- ‘ESC’ FOUR AKRETER, " 


GETHS 
IFHS=CHRS 1 3 2THEHCLS : GOTO1 39 
IFH$=CHRSC 27 2 THEHCLS : PRIMTCHRSC 17 »:E 


GOTOESE 

REM---BEUITAGE--—-— 

FOR J=4G4TOGSTER-2E4 
FÜRESFTOSSTER-1 : PAFERE :HEËTE 
SOUHC: 1. 44,15 

SOHIND I 4 a 4 1 

MEXT.J 
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FETURES 

ÉEITEÆF IH PUMA 

FORT = EEE 

MUSTC1.%. 1121 

WATTS 

MLISTOT. ES. «I 

HAITI 

HET 

FLAE, 5, 5, 

SEE BETUEH 

| HE GA CATAMGUELLE EST LH LONGUEUR. CL FHUH 

EN NE Em "ei Ent, MIS Er, 

tuig ÉRTHEQARRSE EST LA LAFITHLE DE LA € 
ÜREE OÙ HORDE", CPSONHE YANG, "SEUL" 
1H1E GATAUTLEH TSIH". 1 

1424 CATAM"GQUELLE EST LA COULEUR CU CHEYA 

L BLANC C'HENERT TIM EU, CHOTE", "EAI" 

105 CATAMELANE", 

1456 CATA"LA BATAILLE GE HATERLON 4 EU L 
IEU.:",'"ENH 1515""EH 1FSSMUENH 1815" 
144 CATAMGUEL EST LE FLUJS HAUT GES 3 TE" 
OULE MOHT-YEHTOLIEMSULE CAMIGOU" 

1445 CATALE EALLONH C'ALSACE", 

1958 CATA'L' ALUMINIUM EST EATEAIT :", "DU 
FER"."DE LA BAUXITE","DE LA SILICE",2 
1UéS CATAULA SAONE FÉEHDC SA SOURCE :", "A 
U FATEALU CE LAHGRES" 

LAS CATAMAL PLATEAU DE MILLEYALHES". AU 
MOT GERBIER CE ONE" 

14% CATA"GQUELLE EST LA ere WYERTEBRE CE 
RUICALE EU, OL'HETEN, LH FUFHÉSE" 

14 CATAML ATLAS". SE 

1060 CATA"DAHS GEL FILM 4 JOUE FIERRE E 

FAS- SEUR "ULA FILLE CU FUISATIER" 
1485 CATAMLA TOUR CE HESLE.'"MOMSTEUR EL 

EIH",Z 

1934 CATAM'LE MARIAGE CE FIGARU" 4 ETE E 

CRIT PAR 23", ALESAHDRE CUMHS" 

1995 CATA"BEALMARCHAIS", MJEAMH-JACQUES KO 

LSSEAU", EE 

1184 CATA"OH EOIT CIRE 4 UH CAFITAIHNE CE 
COF- METTE :", "CAFITAIHE" 

145 CATA"MONH CAFITAIHE", COMMAHCANT "5 


1 


A LU Li 

LE 7 

— . = — 
ER D Li 


+ MU Rif 
LARLAELNEENE: 


Li LE LD Li 
 & 3 


et 


me 
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1119 DATA"L'ETOILE FÜLAIRE SE TROUVE :", 
"DANS LA PETITE OURSE" 

1115 DATA"DAMS LA GRANDE OURSE", "OAMS LA 
CONSTELLATION CU CENTAURE". 1 

2694 DATA"F IN" 


Devinette chiffrée 


Ce jeu analogue à “Faites vos Prix’’ d'EUROPE 1, vous 
permettra de vous entraîner à découvrir, en un minimum 
d'essais, le nombre secret choisi par l’ordinateur. 

A chaque nouvelle tentative, votre ORIC vous annonce 
TROP PETIT ou TROP GRAND selon le cas. 


14 CALLHCCER : PAPERG : IHEE 

15 FEM##JACOR Edgar & Joserh FORTELLI# 
17 REM#XLE 153,10,.53%# 

FEM##CEVIHETTE CHIFFREEX 

PRINT :PRIHT:FEIHT 

, PRINTTABE SR CHRME 4 CHREG ST UHJEU" CHR 


PRINT: FRIHT:FRINT 

5 FPRIHTTAES 26 CHARGE 131 "L'ordinateur Ge 
mere Un chiffre! 

ST PRINTOHRSS 151 ou un nombre compris & 
te” 
44 PRIHTOHRSS 1510"1 ét 16484," 
42 PRIHTCHR#&S 151 2"4 VOUS CE LE TROUVER," 
45 PRIHT:FAIHT:PRIHTCHESE 155 S'AFPUVER SU 
R UHE TOUCHE" 
47 PRIHTCHRESS 1535 "POUR COMMENCER, " 
4S GETH$: IFHSTHENSA 

59 CALLHCCAA 

69 “=û 
ra AZ INTERNE 1 1 GE 

CLS 


9 LS I Pi T9 
no 8 Ga 


8@ INPUT'VOTRE APFROMIMATION" ; AP: CLS 
an Hs +1 
198 IFAP<ATHENHPRINTAF;" TROP FETIT":GOTO 
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39 

119 IFAPCATHENPETHTAP:"TROF GANDI GOT 
0258 

129 PRIMT:FPRINT:PEIHT 

125 PRIHTCHRSGE d'ICHRGE CP I ANCHESGE LT IUHERA 
WO III"CHRS&C 4: 

127 PRIMT:PRIHT: PRINT: PEIHT 

130 PRIHT"YOUS AVEZ TROUVE EH "ii" FOIS 
1" 

149 PRIHT:PEIMT'VOQULEZ-VQUS REJOUER €QUT 
#HOH3 7" 

156 GETHS 

178 IFH$="OTHEMNSSELSEEHC 
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PROGRAMMES 
DE MATHEMATIQUES 


CE 
OSEO 
CEE CT nl | 2 
TL 

é 


" 


d 





Tables d’addition et de multiplication 


Pour la table de multiplication et la table d’addition, le 
cœur du programme se trouve entre les lignes 60 et 130 
(pour la multiplication) et 60 et 140 (pour l’addition), le 
reste n’est que décoration. 

A noter que les routines de remplissage de tableaux 
peuvent servir pour n'importe quel affichage, il suffit d’ap- 
pliquer la formule suivante : X = (INT (X * 100 + 0,5))/ 
100, qui imite la fonction “PRINT USING?’ qui n'existe pas 
chez ORIC. 


5 REMETE 





es PRINTCHEMRE LES IUPOUR COMMENCER, # 
ca GETHE: IFHETHEHEES 

4 LOFESE 
SE CLÉ: FEÉIHT 

HS PRINTTAES SF OCHEME LISE CHR +4 OUTRE 
CE MULTIPLICATION MOCHE IAE 

1 FÉINTTAES SE CHERE LUE OMR EL AA PTE 
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DE MULTIPLICATION OH Le 
4 FEIHT 

SE FORITSITOIE 

FE FORJSITOLE 

SE FETE. 

96 IFPFÉLGTHEMNPETHTE 

169 FÉIHTEF : 

115 HET. 

Le PRIHT:FEINT 

LE MEA#TI 









ebls FORTELLITAEX 
EAU EEE 





15 PAPERS : HE “ 

2 LOFESE 

g CLS: FEINT:FEINT:FEINT 

Hi FRIHTTABS SE CHERE LES MCHR SE 1 44 "TABLE 
G'ACCITION "CHRSE 146 5 

41 PRINTTAES SE OCMRME LEE CHERE 1 44 "TABLE 





C'ADOITION "CHERE 146 
+2 PRIT :FEÉINT:PEIAT: FEIATCHR#E LEE 2" AFFU 
TER SUR UNE TOUCHE" 

HS PRIHTEHESE LES MPOUR COMMENCER 

43 GETHS 

59 IFHÉTHENSI 

al CLS: PRINT 

g FORIS-ATOIA 

F9 FORJeNTON 

86 Fal+.] 

39 IFFSIOTHENFEINT" " 

194 FRINHTF':; 

119 HET. 

129 FRIHT:FEIHT 

159 HEXTI 

149 IF#=2STHEHS: 


PPCM et PGCD 


Ce programme calcule le plus petit commun multiple et 
le plus grand commun diviseur de deux nombres entiers. 


14 CLE 
2 FETE JACOE 









Edoar H doser h FORTELLTE 


sx 

SA de in à 

A5 PRINTÉHRSC 4 0TA 24 JCHRSC 27 "BU CHREE 27 
a IFPCOM-PGEC MCE dr: PRIT: FEIHT:FRIHT 

LAB THEUT "'Pegmder combo 2 TH 

118 IHPUT "Deus ieme mombtreé "HE 

124 HASH1:HE:HE 

LA PPCHEMLEHE 

81 FOR STOIMT 

sef IFINTIHI 

SA IFINTIMHESE 

40 FCI: ous \ 
nt Hiztii. HESHE 

SEA HET 

269 POFERSÉS, PEER HBES 4: PRÉTHT :FRTHTCHE 

ge d à 

LT PRIHTTAES 26 CHENE CS OM IPPCN & MCHESGE 

FA AUFPFCH 

EE HisHA : HESHE 
314 POCDENHLÆHE 

220 FOR ET OH 

SA IFINTÉHI SE UE CHI ETHENSESE 
244 IFIHTIHE HE THEN S HE SE 

354 PFOCOSPOCC EE 
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1 
1 


D Li ep 
ui € 


st 


LL: 


dre tb 0 -J 


ES 
Fu £ 


42 “ 
4: A 
446 
AA 


459 


POMFUPOCCDCME: 


His: 
QUOTE 
HET 

FOR eTOHE 
IFIHTS 
IFIHTEHI 
POCDePOC Ce 
Hit D 
GOTOZSG 
HET 









HUE pe 


LE 


PRINT: PRTHT:PETHT 
ASE PRIMTTAES SE CNE D UCIPOCD 





rad 


#THEH 
HTHEHH I = 18 


ASE 


PRINT: PRINT: PRINT :FEINT 


a ÉA 


a 
BRL LE 


Pa à 


4 
514 
set 
4 
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PRIT" 


[Un cont iv 


GETHS : TFHGEMOUTHENCLE : 


LFRS* + TH THEN4OR 


CLS: POÉEHCÉ 


FRIHTOHES d AT AE 
MJALT REVCITE:, 


ae 





"CHR 





PRIT 


au 


ge él 


NPC 


GOT 


D 


CHE E 


MCHEGE E 


Conversion Degrés/grades 


Ce programme effectue la conversion d’angles de de- 
grés, minutes, secondes en grades et la conversion in- 
verse. 


19 CALLHCCEA 

29 IHKS 

39 REM##JACOE Edaar & Joserh FORTELLIX* 
49 FEMÈLE 17-10-85 

J9 FEMCOHVYERSION "GC" EH CMS ET IHVERSE 
69 PRINT 

64 PRINHTCHRSE dOTABE LE CHARGE ET UUIMEHU" CHE 
&é 4: PRINT: PRIHT:FRIHT 

ÉS POKERCÉS, PEEKCHBES +5: PRINT 

Tr PRIHTCHRSC 131 0"1-LES GRADES EH C,.M,S" 
F5 PRINTCHRSS1312"2-LES O.M.S EH GRACES 
24 PRIHTCHESS 1512"3-POUR SORTIR" 

85 POKE#26S, FEEKS #2GE +5 : FRIHT 

S7 INPUT'YOTRE CHOIX "ic 

89 IFC<1ORC:STHEN1G 

39 OHCGOTOSS, 506,568 

99 CALL#CCEA 

199 INPRUT'Lez grades 4 convertir :"3G 
119 HeG#, 9e 

120 AzH%-4 : REMCONSICERATION CU CECIMAL 
139 Y=A#É60 : Véz : REMMIHUTE 

140 E=v2-" 

159 Z=B#60: REMSECOHNDES 

155 PFOKEN2ES, PEERC #2ES 145 : FRIHT 

169 PRIUTCHRSS 156 TAB 150%" den, Mi; 
"Omin. ";:24i" sec." 


179 POKERZES, PEEKI H26S +4 : PRIHT 
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189 
E" 

196 
2996 
2 
390 
319 
3e 

Ux 

330 
333 
349 
345 
347 


339 
368 
470 
419 
426 
439 
448 
456 
469 
47a 
4rS 
47e 
1515) 


PRIHTCHRSS 135 2"APPUMER SUR UNE TOUCH 


GETHS : IFHSTHEHCALLA#CCGA 

GOSUE 496 

GOTO33 

CALLHCCOR : CLERE : IHK« 

INPUT'"'Donnez vos CMS "Mi CMS 
AsD+CM-68 1466-3698 1: REMCEGRES C'ECIMA 


H=#4s , 9: REMYALEUR EH GRADE 
POKE#268, PEEKS #CES 145 : PRIHT 
PRIHTCHRS( 131 TAB 20 45" grades" 
POHERZES, PEEKS #C6S +5 : PEIHT 
PRIHTCHESS 125 "APPUYER SUR UHE TOUCH 


GETHS: IFHÉSTHENCALLHCCGR : GOSUE 430 
GOTOSGG 

REMS-P CE CHOI* 
POKERZES, PEEKL #2É6S +10: FEIHT 
PRINTCHRSS 129 5"1-Retour au Programme 


PRIHTCHRSE 129 5"2-Retour au Menu" 
PRINTCHRS 129 "5-Pour s'arreter" 
GETH 

IFH <GORH STHEHCALLACCEA : COTO416 
IFH=1THEHRETUREH 

IFHSSTHEN16 
IFHESTHEHCALLHCCEA : EHD 

EHD 


Décomposition en Facteurs Premiers 


Ce programme permet d'obtenir pour tout nombre entier 
sa décomposition en nombres premiers. 

La partie fonctionnelle de ce programme est comprise 
entre les lignes 150 et 230. Le nombre entré est successi- 
vement divisé par tous les entiers à partir de 2 et qui lui 
sont inférieurs. Lorsque le résultat est lui-même un entier, 
le diviseur est affiché, et on recommence l'opération avec 
le reste de la division, jusqu’à ce que ce reste ne soit 
divisible que par lui-même. 

A noter que le temps d'exécution peut être assez long 
pour des nombres premiers importants ou pour des nom- 
bres qui ne sont divisibles que par des nombres premiers 
importants ; ce délai est lié à la lenteur d'éxécution du 
BASIC 


10 CLS:PRINTCHR$# (17) 

11 CLEAR 

20 REMxPORTELLI Joseph & Edgar JACOB* 

30 REM*21/10/83 

40 REMx*NOMBRES PREMIERS 

50 PAPERO :INK3:POKE£268,3:PRINT 

60 PRINTTAB(20)CHR$(4)CHR$(27)"B"CHR&(27) 

:PRINT : PRINT “JNOMBRES PREMIERS"CHRS# (4) 

100 INPUT'"Nombre a decomposer : "3;N 

110 2=0 

120 PRINT :PRINT 

130 PRINTCHR$#(27)"àa"CHR$(27) "Q"NCHR$(27) 
"C “CHR$(27)"P = "; 

140 IFN<2THENPRINTN : 600240 

150 FORX=2TON 
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160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


NIi=zINT(N/X) 

IFN1 #X<>NTHEN230 
IFZ<>OTHENPRINT'"'X"; 
PRINTCHR$#(27)"T'"XCHR$#(27)"P"'; 
z=i 

N=N1 

GOTO150 

NEXT 

PRINT : PRINT : PRINT : PRINT 

PRINT" On continue CO/N)...7?7" 


2608ETH$ : IFH$="0"THENI10 


270 
280 
290 
300 
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IFH$<2>"N"THEN260 

CALL£CCOÀ : POKE£ 268, 12: PRINT : PRINTCHRS( 4) 
PRINTTAB(20)CHR$#(27)"JAU REVOIR..."CHR#(4) 
WAIT209 :PRINTCHRS#( 17) 


Conversion Binaire/Décimal 


Afin de vous familiariser avec la notation binaire em- 
ployée par le microprocesseur de votre ORIC, ce pro- 
gramme effectuera pour vous la conversion de nombres 
binaires en nombres décimaux. 


14 CALLACCOHA : PAPER THE 

15 FEMEXLETL LEE 

EG REMEÆHJACOE Edaar & Jdagseh FORTELL THE 

RE EEE EE EEE EEE EE EEE 

25 PRIHT:PEIHT 

èt PRIHTTAES SE CHR LES Pr Gr arme dé Co 
nuersl on" 

SA PRINTOHERMRE LES de nombres Édinaires En 
montres!" 

SE PRINTOHRGE LES déc imanus, Me FÉTHT:FEIHT 
: FRIHT 

36 PFÉINTCHESE LES UAPEUTER SUR UNE TOUCHE 


Gr PRIATCHESÉ 155 POUR COMMENCER, " 

HA GETHS: IFHÉTHEHSE 

54 CALLHCCEA 

66 CLEAR:IHPUT'VOTÉE HOÛMERE BIHAIFEE": ES 
F4 FORISLEHS ES TOISTEF-1 

69 IFHICSCES, TI, 152" 1 "THEN ED + EE LEHC ES 
1] © “ 

34 MEXT 

144 PRINT :FEIHT:PRIAT : PAIHT:PRIHT:FÉIHT 
119 PRIHTTABS SG CHESHÉ dd ICHRSE LT US MU DE 
124 PRINTEHPSE d 1: PRINT: PRINT :FEIHT 

139 PRIHT'YOULEZ-VOUS COHNTIHUER %" 

1449 IHPUT'"'Taper ‘Qui ou ‘H'on!"s ES 
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158 1F£$="0"THEHSGELSEZG6 

2ag CLS 

219 PRINT :PRIHT:PRINT:FEÉIHT:FAINHT 

2eA PRINHTOCHRSE d CHRSÉET UMAU revoir... l" 
239 PRINTCHRSS 4 à 
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Conversion Base 10 /Base N 


Ce programme permet de convertir tout nombre de la 
base 10 en base quelconque. Cette dernière doit toutefois 
être inférieure ou égale à 36, limite imposée par l’utilisa- 
tion des chiffres et des lettres (10 + 26). 

Les lignes 5 à 150 servent à la présentation et à la 
saisie des données. Les lignes 260 à 330 servent à l’affi- 
chage du résultat. 

Tous les calculs sont effectués par les lignes 160 à 250, 
le résultat de ces calculs étant placé dans la chaîne E$. 
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De IFACEMTHEMIFE 
PSE AESTERC A 
fi 


IFACATHEHA RE CHERE SEA 


Pari tor 
hBin 


— 


| 


268 Etefié+E$ 

264 POKEHZEE, PEER H2ES 45: PRIHT 

279 PRINTTAEC 17 CHR d CHERE OT JM AA" 5 
"CHRSC 27 A" CHPEC 7 "JE; CHR 4 à 

289 PRINT :PRINT PRINT : PRINT : PRINT Ci 





290 GETHS : TES" ON THEH1O 

SA IFHGE EUMITHENZ SE 

316 CALLHCC ON : POÉERSÉS , 13: PRIHT 

328 PRÉIHTCHESE 4 TAB SA ICHRGE LE ANpBNCHEMGE Z 
FA JAU REVOIR... "CHRGE 4 0 

325 HAIT15E 

236 PRTHTCHESGE 18 4: EH 
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Conversion Base N/Base 10 


Ce programme permet d’effectuer les calculs inverses 
du programme précédent, et a notamment la même limita- 
tion, la plus grande base admise étant la base 36. 

Les calculs proprement dits n’occupent que les lignes 
130 à 185, et procèdent par l’analyse successive de tous 
les caractères de la chaîne représentant le nombre à 
convertir. 

A noter que ce programme peut aisément être complété 
par le programme précédent, ce qui permettra à celui qui 
le désirerait de convertir un nombre d’une base Ni en 
base N2 quelconque ; les adaptations à apporter sont 
simples. 


A FEMEJIACOE Ecdaar ë Joseph FORTELLI# 

LE REITELS.S LE 

FENTECOHVER LDH EASE H EH 15 

40 CLS: PAPERA:THES 

JA FPOÉERSES, Se PRIT: FETHATENESE dOTAES 4 10 
HE SP M ENCHESE LP OM ICONVERSIONH"CHRSE à 
75 FÉIHT:PEIHT:FEINT 

INPUT'Eagse H 2 "SE 

IFEÉSSETHENHT AE 

PRINT: INPUT "Home an convertie 5 M" 
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FOR 1TOLEHE A$ 0 

SR=MTOE AE, 4, 1 

EssALE ES 
IFESE-1THENPETATOCHESC 110"Le nombre " 
est errone, "MAITEGY : Je 

F IF JE ITHEHJEG : PETHTCHESE 11 CHR 14 3 
GÜTOLEES 


CA CA BR Li 
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168 IFESGANDESE ES MENTMENTZ ASC ES 155 

174 ExEté Hé Eté LEE AG ne 

128 HET 

155 EsIHTIE) 

198 FOFEHSES, PEER HTÉS 146 : PRINT 

191 PFRIATTABS 17 CHR 4 CHR EE ET NAN me 
MCHRGE LT AMANECHESE 4 

195 PRIHT:FRINT:FAINT 

266 FEINT:PFETHT:FEIMT" On continus C0 

Woo: 7" 

C1 GETHÉ:IFH#="O"TMEHCLS : GOTO3 

Ce9 IFH$ESUHITHEHE1 A 

239 CALL4#CCOR : FOKE#268 , 15: PRIHT 

249 PRIHTCHRSE 4 TAB ES CHERE AT I MEUCHREE 2 
POMJAU REVOIR... "CHR à à 

299 WMAITIGG:EHC 
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PROGRAMMES 
DIVERS 


Biorythmes. 


Nous avons tous des jours où tout semble aller mal. 
Nous sommes fatigués, irritables, incapables de bien nous 
concentrer. Fort heureusement, il y a aussi des jours où 
tout semble nous réussir. Nous sommes pleins d'énergie, 
nous avons des idées et rien ne semble nous résister. 


Au début de ce siècle, un médecin allemand, le Dr 
Wilhelm FLIESS, et un psychologue autrichien, le Dr Her- 
mann SWOBODA ont analysé des centaines de vies hu- 
maines et ont découvert, séparément, un cycle de 23 jours 
qui semblait être en corrélation avec l’activité physique 
des sujets, ainsi qu’un cycle de 28 jours qui semblait 
associé à l’activité émotionnelle de ces mêmes sujets. 


Plus tard, dans les années 20, le professeur autrichien 
Alfred TELTSCHER découvrit en analysant les résultats 
d'examens de centaines d’étudiants, un cycle de 33 jours 
lié à l’activité intellectuelle. 


Ces trois cycles démarrent à l'instant de notre nais- 
sance et continuent jusqu’à notre mort. 


Les phases positives correspondent aux jours où nous 
avons beaucoup de tonus et les phases négatives aux 
jours où nous n'avons pas ‘‘la pêche”. 


Les jours où l’une ou plusieurs de ces trois courbes 
coupent l’axe O, sont appelés jours critiques, car, situés à 
la transition entre la phase positive et la phase négative, 
ils réclament de notre part un maximum de vigilance. 


En effet, les statistiques de la compagnie d'assurances 
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LLOYDS, montrent que beaucoup de décès accidentels 
coincident avec des jours critiques de biorythmes. 

Enfin, cette présentation n’a surtout pas pour but de 
vous effrayer, car il en va des biorythmes comme de 
l’astrologie. On y croit ou on n’y croit pas. 


DESCRIPTION DU PROGRAMME 


Lignes 110 à 140 - saisies des dates (naissance et jour 
du biorythme). Lignes 1000 à 1040 - saisie et calcul du 
jour (différence entre 2 dates) d’après la formule 


J =J + 30 (M — 3) + INT (.2 * (M + 1)) + INT 
(4 *(M — 3)) +INT (365.25 À) — INT (A/100) 
+ INT (A/400) 


où J représente les jours, M les mois, A les années. 

Le premier passage calcule le quantième de l’année 
d'entrée et le deuxième passage dans le sous-programme 
calcule le 2° quantième. 

La différence en absolu de ces deux paramètres donne 
l’écart entre les deux dates. 

Le principe tient compte des années bissextiles, ainsi 
que des corrections depuis GREGOIRE XIII. 

Pour en savoir davantage, se référer à un livre de 
mathématiques où les théories de M. GAUSS sont expli- 
quées. 

Les tracés des courbes s'effectuent en lignes 2100 et 
2185. Le calcul de l’amplitude des courbes est le suivant. 


(360(le nombre de jours depuis la naissance)) 
durée du cycle 


Le résultat est ramené à 2 chiffres après la virgule. 

Le programme affiche ensuite les amplitudes respecti- 
ves pour chaque cycle (physique, émotionnel, intellectuel), 
les courbes varient de 1 à — 1,si le résultat est négatif, 
cela veut dire que votre biorythme est défavorable. 
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14 RENMEJACOE Edüar & Josefh FORTELLIE 

CA FEMEESS-LESESX 

34 FEMX#EIORYTHMEX 

44 CLS:POÉERCÉS, GS: PRINT 

45 PAFERG:IHES 

SA PRIHTOCHESE 4 OTAES Ed CHR GE LT AMEN CNRC LE 
N'JBIOETTHNME" 

EA PRIHT:FEIHT : PRTHT: PRINT 

FA PRINTCHRS 4 3 cycles influer 
k, sur mvobre wie," 

F3 PRIT" 1 … Le cycle Fhugique eur ES 

ous 1," 

77 PRINT'E - Le cucle Emotiomngl £a 
Jours 2," 

SA PRINT"'S + Le cucle intellectuel sur 

25 jours," 

Se PRIHT:PRINT La lére muitie du cycle 

st favorable. 

PRIHT : Ein HET IUAMUSEZ-VOUS ETEH 


ÈS 
Se, 
". 


— En 


111 

5@ PRINT:FEINT'AFEUTER SUR UNE TOUCHE, " 

5 GETHS: IFHÈTHEHESFLOCE : GOTOI HE 

A4 CLS: HIFES : FRIHTOHESE 1 1e COSUBETSE 

14 FRINHTOCHB SE 27 it ADate de naissance, M G 

O'SUE 1 GA 

124 KEzJ':PRIHT 

139 FRINTOCHRSE EF M" DODakte du iour, ":GOSUBI 

ÿAE 

14 FRINT:PFEIHT'"'Cela fait MAS IE NT Jon 

ÈS NOQUE VOUS gtées nee." 

158 COSUEZ20A0 

390 EH | 

lan IMPUT JOUR. , MOIS + AHHEE "Je. ME, HE 
1914 IFAXS1GATHENAEE AE +1 960 

1426 TFM%< 2 THEMHP® A . Misetisd+is 

145Q Je Jé+SOEe MS TNT E SEC MA A TMTE 
PTE 3 3) 

1931 JE JE+IHTÉSÉS, SSEAS 1 INTÉ HS 186 + TMT 

CA" 40GE 1 

194 FRETLEH 

2008 FEM#S-P DE TRACES 

2911 PFAFERE:IHET 

29412 F=ABSCJ-EK 


— Son "D 
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2015 H=SIMIF-23 2: YeSINCF/2802 
2928 CURSETAO, 99, 1 :DRAULGG, 0, 1 
2021 CURSETA8,98,0 FIL, 1,5 
2022 CURSETS4: 99, 8: CHAR4O, À, 1 
2680 CURSETAG, 169, 1 DRAM, -140, 1 
2190 FORA=-PITOPISTER. Gi 
2119 CURSETA4GC AELO+SS 4, SIHC A KPE 100, 
! 
2120 MEXT:PIHG 
2125 DRANG, -58, 1 :DRAN1G, 5, 1 

2126 CHARS. 9, 1: CURMOY7, 0,0: CHARS1. 0, 1:C 
URMOV7, 6, 6: CHAR 196, 4, 1 
2129 CURSETIA8, 47,0:FILLAF, 1,0 
2138 FORA=-PITOPISTER. DE 

2149 CURSETA4Q+E AF12+30 41, SIMCA ET O+1 00, 
1 
2154 MEXT:PIHG 
2155 CRANO,-30, 1 :DRAMLG, G, 1: CHARS, 0. 1:C 
LRMOYT, D, Er: CHARSE, D, 1: CURMOUT, D, 0 

2156 CHAR186. 1 

2169 FORA=-PITOPISTER. 9 

2178 CURSETABHC RAS +45 427, SIN: ADKTG+ 100, 
2180 HEXT:PING 
2184 DR. - 71: DRAMLD, R, 1 

HAIRE EURNOUR. 2.6 :CHARSL: 9, 1: C 


=SIHCF-33 0 







SR, LE ET CHARGE, 6, Le CURMONTS, 
# 1: HIRMOUTS EG, Ge CMAR PA. A, À 

4 CUEMO + si Et: CHAT sd: CURMONT ARE 
LH 1, 4, 1: CUEMOUT Fi 
cent CHARS A, A, 1e CLIE one 
LIMITE, 13, Gi: CHABTT Es LE CUPNION. 6, fi 

Seb CHARES, 1, 1 

cire re 
Ra Gus s IMTÉ 



















1 LE 

LS ti LE 

A ge I HIT m LEE nn 1 EE 

SA FRINT"CU Ce Fhugidqueg 6 MN ess URI 
AG: HAITIGAGE PRINT :FEIHT 

cadé PÉIHT Cuele emat dormmgl 5 MANN Ep 





“RL HEN. 








En En cn 
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PRIHT'Cuclée intellectuel : "Men ua 


FINE :HAITIBGE: FÉTHT:FETIT:PETHT 
AE M  : PRTNT : FEIHT 

PRIHT"L "amplitude mouenne get 2: "AN 
FOR SAATOISAE : SOUNDA, JIS HEAT'E# 


PRINT "Von teens récomméeneer. LH 


GETHS: IFH$="O"THEHCLS : CLEAR : GOTO1 06 
LFH#< 2 "H"THEHESE 


395 TEST 
A FRETUREH 
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Prélude n° 1 de Jean-Sébastien BACH 


Ce programme est une application des possibilités mu- 
sicales de l’ORIC. 

Le morceau est la stricte recopie de la partition. 

Dans les lignes de 4 à 23 figurent les instructions d’utili- 
sation,de 25 à 28, entrée des paramètres ; (volume de 1 à 
15, si le volume est mis à zéro, l'ordinateur demande 
d’autres paramètres : l'enveloppe, et le volume est systé- 
matiquement mis à 15). De 29 à 40 écriture du texte. De 
66 à 99, ce sont les ‘DATA’ où sont stockées les notes 
de musique ; pour plus de facilité de compréhension, les 
notes ont été stockées par portées. De 100 à la fin, c’est 
l'exécution du morceau qui n’appelle aucun commentaire 
sinon que la ‘‘tempo’”’ est en fonction de “T %” et la 
longueur des notes jouées en fonction des ‘Waiït”’. 


14 PRIHT 





LE PRIMTOHEE 1° 
EL 


17 PRIETOHES 158 "le DUNRerEeMIs er Jen ee 


n Fonte" 
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15 PÉIHTOHESE 1 tee 'eneeloppe QUE vou 


15 PRTHTECMESE LS Mat lex penbeger + de GS a 


où PEIHT:PÉIATOHENRE USE AOAPPLSER SUR UHE 
TOUCHE" 
21 FPRIHTCHESGE 1e AURAS ECOUTER, 
" GETHS 
IFHSTHEHES 
CLS 
IHPUT'VQLUME dde 1 a 152 :"54 
IFMSATHENMEFELSE SS 
IHPUT"EHVELOPPE D a Fa "Mi 
2e JIFHSGORHELORMEËTHENLEES 
23 PRIHTCHESE 1 0 
SA CLS 
59 PFEIHT:PETAT:FETHT:FERIHT:PEITHT:FEIHNT:F 
Re 
Sr PRINHTTAES SG CHERE à iCHRE ET 2 UIPRELUCE 
HUMEFO LMCHESSE 4 1: PRTHT:FEIHT 
GS PRIHTTAES SO CHERE LE SUCRE EEE EAUX 
Æ " 
A PRIT: PETAT : PETATTAEN SE CHERE LEE POS 
EACH" 
Gé DATAS, 1. 
ër DATAS: 1 
ÉE DATRS, LE, 
64 CATHS, 1:35. 
ra CATHS, 1,7 
1. 
i 
1 
1 


LRRLRELNETS 
tj M A Lt Pit 


nù fi in Fri 











71 DATAS. 1,7 
ré DATAS, 12 





F3 CATAS, 12,5 
F4 CATAE, 164,3 
DATA, 






ré bé 2 
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+, 
es 






di -i 
Dit ie 
Fit Ee 


rt LO — 


co D £ 


CHTAZ., 1.2.5, 2,8,: 
CATHS 128 


JL LP et 
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DATA 
DATA 1 
DÉTAI 
DATA € 

DATAI, 1, 


Len GATE sÉ 
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F 
Le 
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Carte de France 


Ce programme peut être utilisé pour dessiner par exem- 
ple l’Europe ou des cartes côtières. 

Actuellement, il n’y a que la France de prévue ; les 
données sont très longues et fastidieuses à rentrer. 

Les données ‘“X”’ et ‘“‘Y”’ sont rentrées en absolu, c’est- 
à-dire par rapport aux bords de l’écran de télévision. 

Les lignes 25, 26 et 1005 sont prévues pour le centrage 
automatique de la carte. 

Dans un premier temps, il faut fournir des éléments à 
l’ordinateur : 

Le déplacement-en effet, Vous pouvez déplacer la carte 
de droite à gauche et de haut en bas en appuyant une fois 
le dessin achevé sur les touches de déplacement situées 
de part et d’autre de la barre d’espacement. Une fois une 
de ces touches enfoncée , la carte se déplace ou plutôt se 
redessine ; … mais décalée du paramètre fourni à la pre- 
mière question. 

L’échelle - La carte est dessinée dans un premier temps à 
l'échelle 1 ; cette échelle: n’a rien de commun avec 
l'échelle des cartes du commerce, mais cela peut se pré- 
voir sans difficultés. 

Nous pouvons donc rentrer comme paramètre à cette 
question 1, 2 ou plus. Attention, plus on grandit le dessin, 
moins celui-ci est précis (vu le manque de points !) évi- 
demment, on peut également donner .5 ou .05 etc... 

Les coordonnées : C'est-à-dire la position ‘‘X”’ et ‘‘Y”’ sur 
l'écran ou en dehors. 

Pour un premier essai, faire : déplacement = 50, 
échelle = 1, coordonnées = 120,100. 
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Les lignes 50, 80 et 120 sont pour la protection de sortie 
d'écran. Il faut s’imaginer que la carte se dessine, même 
si l’on ne la voit pas. 

Le cartouche (au bas de l’écran) signale trois paramètres : 
l'échelle, “X”’ et “‘Y”. 

Donc vous saurez tout le temps où se trouve votre 
dessin. 

Pour information, vous verrez le dessin seulement si les 
paramètres ‘‘XY’’ sont compris O0 < X< 239 et 
0O< Y< 199. 

Bon amusement ! ! !. 


REMARQUE 


Pour le programme de la carte, vous pouvez améliorer 
en ajoutant : 
1040 GOTO 1045 (ce n’est pas très élégant mais...) 
1045 GOTO 1505 (de moins en moins élégant...) 
1505 INPUT ‘DATA’ ; Q 
1510 DOKES$BO, Q 
1520 PAPER6 : INK 1 
1530 HIRES 
1540 GOTO50 


Il faut bien sûr changer les lignes 1020 à 1028, à la fin 
mettre GOTO 1040. 

Il ne reste plus qu’à insérer dans le programme, en ligne 
75 par exemple, PRINT DEEK (HBO), puis repérer les 
adresses des différentes régions qui vous intéressent, 
pour les appeler lorsque le programme arrive en ligne 
1505. 

Vous aurez donc l'exécution de cette partie uniquement. 
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REX 
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AE TFHÉ= one 
GES TFHRSCHERC ES CITHEHS 
ae IFHRECHERES THEN 


CLS : GOSUE 156 
IHPUT'CEPLACEMENT "SE 

CLS 

IHFUT'ECHELLE"E0 
IHPUT"COURCOMHEES" 3 à “TR 
IFA$<EUTUTHEHE PILE à 1 
ne MIUTHEN =" 2 

mie L'UMEÉR ECTS _ 

né LAAES EL 

HIFES 

PAFERE : THE 

FESTORE 

FEACA : IF 1 GG GAATHENI GE 

FEACE 

A=IHTÉESCÆA EE INTESCEB ? 

PRIHT'EC = MED UMR æ OME+ A, Nm UY4E 
TF4 Ae DORA ASS SORTE DORY+ES132THENS 








READC : IFCS 10840608 THEHIHG5 

REACC 

Le IHTE SCEC 1: De IMTE SCKC 

IFa+C<GOR TAC GORE +C SES 0R"%+C CS 1 SSTHEH 


1 


Le 


CURSETH+A 46, 1 
PRIHT'EC æ MOD, UN æ Map, pe UE 
IFC-A=BAHDD-E-GTHEHSE 

DRANC-A, DE, 1 

A=C:E=C 
GOTOSE 
G GETHS 







CATMHENEC = 1 
LE UTHENLE 
ATMENTEST : CLS: END 
E:GOTOSA 
+7: BOTUSE 


LT Mobile 







cé IFMRECHEGE LE UTMHEN 
eg IFHS:CHPGE {1 STHEHV ES COTO2 
24 GOTOI GEI 


SEE REMY JACOBE da ar H Jdusefii PORTELLT# 


14 FEM#19." 
25 FEMYCARTE 
34 PAPFERE : LHKS 






SEOGRA PHIQUE À L'ECHELLE* 


54 PÜOFERTÉS, 3: PRINT 
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1599 FÉEITHTCHESRE dOITAES Ed CHR GÉ ST ANEUCHRSE 
SPANILA FEANCEMCHESRHE 4 ie PRTAT : PRIHT 

156 FEINT" Ce Petit Frogrammée 3 Four 

but ce " 

1564 PRINT "dessiner la FEMHCE: libre a 
QUE ide L 

1564 PÉINT changer les donnees en ‘CATA* 
ou d'en" 

1599 PRIHT'"'raiouter, l'EuroFe, Far exemF 
le." 

1698 FRIHT:FEIHT 


1619 PEIHT" Le Programme demande 18s € 
got do" 
1écn PRINHT'Mees, l'échelle 1,.1..3,,5,1.# 


,18 Far" 

1686 PRINT "exemple, le defFlacement de 1 
a carte." 

1646 PRINT" Four commander le deplacem 
gent, Une" 

1654 PRINT FOIE la carte dessinées, On af 
Fuie sur" 

1660 PRIHT''=i" ou ‘és ou ‘** ou ‘Y* Po 
ur aller" 

1674 PRINHT"'dans la direction," 

168€ FRIHT" Si l'on aFFuie sur ‘RETUREH 


“is ; 


à “PRINT'tion désires, Si l'on veut 13 


1718 PRINT" IT ŒEUFFIit dé rentrer ‘TI, I" 
1F28 PRIHT" La touche ESC" Four sor ti 
r.' 

1754 PRINT" AFPUYER SUR UHE TOUCHE. " 
1744 GETHS: IFHSTHENCLS : RETUREH 

2006 CATASS,6,197.3,108,6,101,9,162,9,19 
3:8:186.12,119,13 128,16, 126, 16 

20n2 DATR127, 18,125, 19,127,19,126,22,1531 
29: 135: 19,134,22,135,23,135.25 

ca94 DATAL39, 28, 140,27, 141, 28,:141,29,143 
:38,147,39,156,231.152,29,154,31 

2OA6 CATA159,37.160,37,199,55,162,36, 164 
,37:166:56:169,38,176,39,175,42,171,46 
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BC 
2d € 


3:36:42,37,43;38.41,39, 45.489,43 
CATASE. 4 46, 47, 49, 49, 46: 46, 47, 49,4 
un 47 47, 49, 45, SO, 4, 52, 49,52, dé 

1 DATHSS. 45.53.47, 56,48,59, 4% 

5200 DATASE : 43:97: 44,96, 42,57, 42, 44,5 
SL M A 14 Da, 23.054,39 
CATASS, 87, 54, 


Fu 
10 
2 





9, 64,39, 66, 37460 36 69 36: ÊT 4 39, 69 

2148 DATASF.63,96,68,74,63,25,61,34,61,5 
2.67,930,61,99.61,29,59,28,61,27,S5 

2158 DATASÉ. 58.25, 60,29,98,29,97,23,98,2 
3,61,:21,60,21,58,19,96,17,:96, 17,95 

2164 DATASS.,55,21,52,209,93,19,591,29,S2,2 
4,51,23,00.24,49,23,48,19,49,17,59 

rt CATALES, 48,17. 48, LE 45, CA, 4r, 26, 45,2 
243,23, 44,24, 45,25, dd, DT, 43,27, 46 

2196 CATHES, 45, 29.,45,32,45,31,45,35, 41,5 
4. 

& 

s. 


FO 
pa © 
OR 
cn en 

















SE, EF, 61,28,6 
L A ÉE +Cbu si 69493 
2204 DATA 4,56, 9,33, 82,39,82,3£, 79,51, 
32,76, 32, r0,28,92,21,93.22,95,20 
e 26 Pope 36, 16.95.15 35,6 
QAE 


1 CATALAGAGGAEE 
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Jour de naissance 


Ce programme vous permet de connaître le jour de la 


semaine correspondant à votre date de naissance. 
Entrez la date sous la forme suivante : 
10/08/1949 pour le 10 août 1949. 


1 FAFERG:IHETS 
14 PEMEJACOE Edaar & Joseph FCRTELLIX 
CA REMESS-1HES 
Hg MENT. de la ML EE AT 
4 FEMEADAPTATIOH FOUR OETICÆ#BTELTIOGEAFH 
LE : ne 
Sg CLS: POFEH# PRIT 
EE BE LHTCHEC d TAB 24 CHE 27 OVE IMCHRRE ET 
M LIONR CU MOTS M"CMESRE et 
7E PRINT :FEIHT:FEIHT 
S4 FRIHT" Four connaitre lé jour dé sa 
mais" 
A9 PRINT "eau, 
G2 PRINT :PEIHT :PRIAT: PÉIHTCHESRE TS 0 Fl 
PPUYER SUR UHE TOUCHE, " 
A4 PRINT:FPRIHT:FRIHT'LA TOUCHE ESC" POLI 
F SORTIE," 
96 GETH$: IFHÉTHENT GE 
Lan GOSUBE1A 
1164 GOSUELE: CPÉEUDATE DE MATSSANCEN:GOS 
LEZ: GOSUESGE : GOSLE dE : COSUES EG 
115 GOATOI1E 
129 PRINTOPS; : GOSUES 46 : COSLUE 145 
154 RETLFH 
149 LaeLEHE 
159 GOSUBZE 






#$ 2: IFLESTHENE1E 
Gi: MO LHTÉ VALE MO 9 1: DA INT VAL 
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CA ne RE TNT É MALE ES 
164 IFLEHC RS 1e CTHEM ES “F4 1308 
174 GOSUESSG : MLÉ Eee: Te 1 TMHENMLE 2 eo 
189 IFHOTÉ 1e MONHOMOS 1 SAND TRS #1 THEHZ16 
196 IFHOTÉ LE DAANOCAE =MLE MO COTMHEHE IE 
248 IFHOTÉ RSS SAHOMCEE TL ARNO dE CAAMCCAE 15 
 DAERES EPA RN 
219 “ax: RETURH 
cet Mon : FORHLE OTOL-A1 ET SeMIDEC ESS, LL, 12 
230 IFR Et AND EE SM AHD2ZSE M —"THEHS 
St 
AA Homo +1l:TFESe LOIRE Se 2TMHENSPÉEAS el : GO 
ee 
ES MO" RETUEH 
260 METAL: IPS SETHENNMOSE=" "TE: COTO296 
Fa DAGSLEFT#EO MES, SPA 1 ie MOSeMIDSC HS, 
. dub, SPC ZOPE 1 1 à 
299 TRSEMIDE ES, GPO 4 
238 RETURH 
SOA VERVR-AAGETMTE NE. 6 0: CCE 
519 IFYESIBITHENSSA 
Den este 168 : OWeCU+S: GOTOS 18 
334 IFYEÉSTHEHSSE 
248 ete: OMeDH+S : GOTOSSE 
260 IFYESATHENOHECN-E GOTOSSÉ 
SJE CHECHANE- 1 
356 GOSUESSE : CHeOU4.IC- 1: TFYESLSSETHEH396 
364 IF R= 1 SES CANHOMO SL ATHEHSSA 
374 IFYR=1SS2AMDNMO: 1 BANC e 15 THEH39E 
364 ClzCli+s 
394 CHECH-FHÆTHTÉ CUS re: RETURH 
466 POFERZÉS, PEERSHSÉS 1449 : PRINT: PRIHT"Y 
Qus etes nee le" PRINT:PEINMT 
414 PEIHTOMSE CM ETES DA 5" SEA 
HUMOUR PRINT: PRIAT : FRIHTCHRSE 13 
+24 FRIHT'Quel jour merveilleux ie PRINT 
:PRIHT 
434 FRINT 
449 PRIHTPMSEE OU: RETUEH 
454 JO:z.Jé MO +0 : IFHOE 2 2THEMPETURH 
464 GOSUBA4SG: IFée1TMENM.IDez C4 1 
4F4 FETUEH 
GS ee: TPFYRESALETATE TRS A OUTHEHRETLRH 
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499 IFYRSLGGEIHTENE.- 100 ANDRE CAGEETHTE 
FR. 46 1THEHEETURH 
298 ae]: RETUREH 
214 CLS :FETUEH 
529 GETAS: IFASEUNTHENSEE 
Ses IFABECHRSEE 27 ITHEHCALLHCCEA : EHD 
339 RETUEH 
FA it ‘Be mn 

JA GOSUES CA: IF H=CHESS 12 I THEHNSEG 

56 PRINT 6: IF GeCHRSE LES ITHENSEG 

HG éeesseétsé: COTOSSE 
Sea IF LEHE 5 HAT HEMS SE 
299 PRINT: mu! 66, : IFLEMS ESS el THEMES =" 
":COTOSSA 
595 ASSeLEFTEC ES, LEHÉ ES 1: GOTOSSE 
644 RETURN 
pi FEACCE : CATHI 

20 CIMOMRE EN, ESA MOGE EM ML 120, FH&CE 


638 FORÉM=ATOG : READOMSE HU, PME MU HEUTÉ 


En CÉTACIMANCHE, MUQUE ETES BEN, SAGE. 
BUH ET .IOYEU" 
654 CATALUHOT , "L'EHFANT CLUI LUHDOTI A DES 
TÉAITS HAEMOHTELE" 
S6E CATAMARCT  :"L'EHFANT DL MAEDT EST OT 
RES GFACTEL" 
SF CATAMERCEEDT "L'ENFANT CL MERCREDI 
EST MALHELIRELIE" 
SE CATALJELCT à "L'ENFANT CL JEUCT YIVE 
A TRES WIEUS" 
GS CATAVEHCRECT. "L'EMFANT GUI VEHDEECT E 
ST GEHERELE" 

FRA CATASAMECT "L'ENFANT CU SAMEDI EST 

ÊES sOGHELNE on 

F1 FOR ITONLE : READMOGE ee MEURT 
Pet DATAJANYIER. FEVPIER, MARS. AVEIL. MAT. I 
LIIH, JUILLET, AOÛT, SEFTEMERE 

5E CATROCTOBRE, NOVEMBRE, DEC LEMERE 

te 4 ee OT : READMLE 64 2 








7EG RETUFH 
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Ecart entre deux dates 


Ce petit programme vous calcule l’écart entre deux da- 
tes et vous permet de savoir, par exemple, le nombre de 
jours que vous avez vécu. 

L'ordre d'entrée des dates n’a pas d'importance mais le 
format est important. 

Entrez les dates sous la forme suivante : 

20,3,1952 pour le 20 mars 1952 
ou 13,11,83 pour le 13 novembre 1983 


100 
110 
120 
130 
140 
150 
160 


170 


180 

1000 
1010 
1020 
1030 


1040 


REM X JACOB EDGAR & JOSEPH PORTELLI + 
REM CALCUL DE L'ECART ENTRE 2 DATES 
REM 

CLS 

GOSUR 1000 

K=J : REM SAISIE DE LA PREMIERE DONNEE. 
GOSUB 1000 : REM SAISIE DE LA DEUXIEME 
DONNEE. 

PRINT ABS(J-K) : REM FACILITE DE 
TRAITEMENT. 

END 

INPUTI%,M%,A% : REM JOUR,MOIS, ANNEE. 

IF A<100 THEN A=A+1900 

IF MXC3 THEN A=A-1 : .M%=M%+12 

J4= T4 +IOK (MX 3) +INT (. 2H (M%+1) ) +INT 
(.4#(M%-3) ) 

J=J4+INT (365. 25#A%) - INT (A%/100)+INT 
(A%/400) 


RETURN 
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INTERETS COMPOSES 


Dans beaucoup de cas d’investissements avec des inté- 
rêts, l'intérêt qui est acquis est rajouté au capital de dépôt 
pour chaque période de référence. Ce qui fait que l'intérêt 
calculé avec le capital de base, et rajouté à celui-ci, de- 
vient un nouveau capital de base sur lequel de nouveaux 
calculs de rapports sont effectués. 

La formule permettant de déterminer la nouvelle valeur 
est la suivante : 

Valeur future = Valeur présente facteur de (1 + 1/100) 
puissance N. 
où N est le nombre de périodes exprimé en années. 


Description du programme : 


Ligne 40 : Choix de la couleur de fond et de la couleur des 
caractères. 

Lignes 100 à 110 : L'ordinateur demande la valeur pré- 
sente (VC) ainsi que le taux d'intérêts exprimé en pour 
cent. 

Lignes 130 à 190 : Choix des critères de calcul. 

Ligne 200 : Demande en années. 

Ligne 210 : Un GOSUB qui nous amène à la ligne 520 où 
est traitée la formule de calcul de la somme future, puis à 
la ligne 530 qui arrondit à deux chiffres après la virgule. 
Enfin, retour à la ligne 230 pour la suite du programme. 
Ligne 220 : Affichage de la somme calculée. 

Ligne 230 : Calcul en absolu de la différence entre les 
deux sommes calculées pour obtenir le gain réalisé. Le 
reste du programme est structuré de la même façon pour 
le calcul des mois et des jours. 


93 


Juge FORTELL TX 


Pi 
a 


Lu ‘= 


REPTEXJIACOR Edüar 
FEMME LE 16-11 Ë 
PEN IHTERETS COMPOSESX 

PAPERS: INES 

F 5 

IHPUT' Valeur en cor te MEME 
IHPUITT aus d'interetks C0 Ml 
FPRIIT:PEINT:FETHT 

FERIHT" À — Annuel Go a 

FRTHIT" M Mensuel Ce 
PRINT" h dura lie 
FEIET" de Four finir 
GETH:IFHEITHENTÉS 
LFHETHEHTLÉE 

OHHGOTOSAE, dd, 486. 6 AA 
PRINT: PETHT:PEINT: IHELUT "Ames sn" 





à 5! 
=, 


IT œ, 


nt 


s ï 1 
Et ii 





D D D 
D 


ü 
it 


Pipe pe pa pe pa pa ms pee pa pe ff a £ù 
D O0 Mi CA E oi Po re Dr 

É 

+ 


Ts 
40 
ER 

— ‘— 


+ 
_— 


245 COSLUES2 A 

Len FPOÉEHZRS. PEEKRCHBES 148 : PRIT: PRIHTYA 
24 PrABSC MC 2 
44 IFFRITHENPÉTIHTU ARE: Fe: COTOZF 
ESA IFES1TMHENPEITHT Houtel le valeur 1 MU 
At Mostéerone Malégnupr 2 Miss et: COTOSFA 
264 PRIHT:PEINT: PRINT: PRIMT'ESIE la gomm 
& ce MP Francs d'interets,! 
er6 FRINT:PEINT'AFPEUTER SUR UHE TOUCHE 

M GETHE: IFHÉTHEHCLS 
.. 14 PRINT'RarPhel des sommes " 

24 PRINHT'Valenur en comte Le 
306 PRINT" Taus d'interets "T 
318 FPRIHT "Somme % inkherekts calcules "VA 


329 PRINT" Moules autre chose CCM 
Foi" CETHS: IFH$e"O"THENSSAELSEEHC 

334 PRINT:PEIHMT: PRINT 

346 PRINT" 1 — Pour refaire un calcul," 
364 PRINT" E + Pour Garder les anciennes 
369 FRIHT" Maleurs Et &n radouter ce 
474 FEIHT" nouvelles, !" 

Se PRINT" SE = Four se legs anciennes 
394 PRINT" walgeures, réefare Un Calcu 


48% PEIHT" et comParer, ! 


4 GETH :IFH THEMA TE 

APR IF SITHEHAIE 

AS HN GOTO SG, SEA, Sn 

té PEIAT:PEÉIHT:PRIMT: INPUT "Mode co ii 
“1 

450 Ile 1E tm 





4Fa GITE 
458 AAULE FRTHT: PRINT: IHEUT' Jour Ca à 








SE É & FF EH EL HT LEE 

So Me TNT VAL, Se AA 
met FETUEH 

af L CLERE : GOTCOI GE 

6 
FPE | 
Fi A EE à ue À 
4 SOTOL GS 

: : EHC 










ANNUITES 


Les annuités sont des paiements égaux effectués à 
intervalle régulier. Il s’agit donc de calcul d'intérêts com- 
posés avec paiement périodique. Si le paiement est effec- 
tué en fin de période, l’annuité est dite ordinaire. Par 
contre, si les paiements sont effectués au début de cha- 
que période, l’annuité est à échoir. De nombreuses situa- 
tions financières impliquent des paiements tronçonnés et 
éventuellement un dernier paiement après la dernière an- 
nuité ; celui-ci est appelé paiement libératoire ou égale- 
ment paiement anticipé. 

Le programme est divisé en quatre sections principales, 
qui sont : 

- Fonds d'amortissement. 
- Annuités à échoir. 

- Annuités ordinaires. 

- Annuités échues. 


Description du programme : 


Lignes 100 à 180 : Choix du calcul à effectuer. 
Lignes 200, 600, 980, 1460 et 1995 : Direction des diffé- 
rents programmes principaux eux-mêmes scindés en 
sous-programmes pour le calcul des intérêts, des valeurs 
présentes et futures, des nombres de mensualités et des 
mensualités. 

Le reste du programme est commenté par des REM 
quand c'était nécessaire à la compréhension. 
Exemple : 

Pour le fonds d'amortissement, Pierre met sur un 
compte à la fin de chaque mois la somme de 25 F. 
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Sachant que les intérêts sont de 5,25 %, quelle sera la 
valeur cumulée au bout de 10 ans ? 
Réponse : 3984,42 F. 


15 CLE 
BA PAPERS: THE 
fi DEEE RÈRE _Edsar BE JE 





Phi PORTELL Te 


most mont daues oovue et 





fl PEN LE PL 11 
ne FEM--- -AHHUITES-- 





115 PRIT 1 Fine d'amortisse 
SA PRIET" EE ee Mrmiit a chiite, 
SA PRIT OS e Mnmuit CPI MAÎTEs. 
HA PRINT" 4 ee Bonites ccbuigs, " 
A PÉTHT" So Four Fini," 
4 PRIT: PETHT:PRTNT 
A PÉIHT'AFEUTER SUR UHE TOUCHE, "CGETHS# 
FH UE OIRM RE OL UOTHE NL FE 
LS HeVALE HS 

SE DHHAOTOZRG EE, EE, 1 LÉ, LAN 
GE CLS: REP eee FINE Ce AMCIRT TS SE MENT 
SA PRINT" 1 + Maleur future, ! 

A PRINT" E - Hombre de mensuatites. ” 

4 PRITAT" OS fi ialite 
14 PRINT" 4 RÉ CILLET CAN Me TILL à 
ee FEÉIHT : PRINT FPÉTAT'APEUTER SUR UHE TE 

CHE, Ce GETHS : TE HE ENORME UT UTHEMSE 
ee Het'ALE HS 
ed JHAEATÈSS 
sur re CALCUL WALEUR FUTURE 

4 CLS 5 : CLÉRE : NÉE “FOHE Ci* AMOR T 15: SEMENT" 
ue MA Tites,  ouaus "iFFP 
IHPUT Hombre de mens alites : “:t 
INPUT Taterets CU us uuun © Mail 
3. COS UEEEE A 
A Fer PROC ELA ape {ST pute COS UE 
BE : Fee 
SO PETAT:PFETHT:PETHT 
SA PRINT Ma Leur FU UIES du ou mu UE 
ASE : GOSLUIEE SEA 


mére! 
LL 



















M, SA, SE, LA 
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24 CLS :REN CALCUL HBRE MOTS 

AG CLEA : Me "FOHC CE AMORTISSEMENT" 

+14 IMFUT!'Valeur future 

424 IHPUT'Mensualites. sua. © CMP 
459 INPUT" Intéeréets Ci . diéanemrace, ce MAT 
44n GOSUESESA 

SA MELME EC PMCET CPP a éL HE LT ie etl: GOS 
LEA : He 

ES PÉINT:PARIHT:PEÉIHT 

+4 FRIHT'"' Hombre de mensualités: "+ 

459 GOSUBZASE : COSUEZSSEA 

4934 GOTOSAA 

88 CLS: CLERAR : Hé "FONO D AMORTISSEMENT" : 
REM--CALCUL MEHEUALITES--— 

SLA IHPUT "Ma leu FILRUR ES suuuss tt Mi Fw 

ee IHPUT "Home menguatites, 4 "H 

SA IHPUT M" TInbterets CU sun © MI 

_ GOSUESeSEA 

PPS GE RCE LT HT Es RPP : COSUE 
4: PPS 

À PRINT. FRIHT:FEIHT 

=D PRINT" MenguaTites 5 "FFF 

OA COS AE: COSLIEZSS A 

. GOTOSAE 

13 CLS: CLERF : PEN, 4 ECHOTR 
FRIHT" 1 + Valeur Future," 

FÉIHT" OS ee Hionkbae de méengualites," 
F 

F' 


=. 
= 








et 


EIHT" 3 — Mengustites," 
RIMT" 4 Fetour au Mers, 
4 PRIT: PEÉIET: FÉTHT'APALUYER ee HE TO 
HE. M GETHE:TIFHE EMA NORME EAU THEHESE 
AA REA 
E CIHMHGOTORS SE HA, LA 
CLS “ELERR ‘is LHANNLI TES A ECHOTE" BEN 
MAL, FUT, : 
THPUT" Mere ualitee is mens gt OIL tes 
IHPUIT Horlore  ch sualites Ke SRE 
IHPUT"Tnter et: Se eue ages cie (lt 
GOSUEZES A 
FU PPRHL LT CURE CCC TT OH A US  RpU 
QUE BUBZADE Var 
CHA FÉIIT:PEINT:FEIMT 
75û PÉTMT M E'a Téur FUN su uuuus © MEW 


AT Rio D Mimi 


CO M OLA BR Gi ii ‘5 CR J a 5 ENS 


LE 


© 
DEAR) 1 





qe, 
— 





D D EL DRE DMMAMANAUUNTI NUL 


jrs mil 


à Ur 
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EE: COS LIEU 






re LUS e 





ER Le He CANHAUITE # ECHOTR" :REM- 


reg CLS MENS 
798 LHPUT Va leur UE RE a amv © UF 






SE THELIT "A 
18 IHEUT MT 
EE QUE ISLE Se Fi 
JE EURE 











":PPF 


PRPET EE LT eLHÉ LT 1 Het 





“nsUBzaRE PRIUT:PEIHT 
ns di CHBLEZ020 LD de mensualites: "FH 
: (té et ele 








ô CLS: REM …MEHSLEALITES 
Fi INPUT a Leur FÉES ou au un © UE 
SGA THPUT "flore ce mensualités 5 Mi 

A1 THPUT"Tnterets Éd anames 0e CRE 
AE GOSSES 

33€ FFF PU C DEL DÉCO LA OH = Lier 
BP: COSUECAGG : FPE 

344 FRIET:FETAT : PRIT 

HE RS na en 












n F F' F' 





sem OT -AHHUITES ORCINAIRES- 


ang PRIT" 1 - Maleur actuelle, 

LAN PRINT OT ee Hiombee de mensualités," 
LA PRINT OS ee Menmeuatites, " 

LAS PRINT" 4 + Paiement Libéeratoire," 
ASE FEÉTHT" OS shout ou mere," 

14 PRIHT : PRINT: PETUT'APPUTER SUR LME T 
CUICHE, " 

LAS GETHE:TIFHE ENS NORME UT UTMHENT ASE 

168 Hek'ALE HS 

1464 CHHGOTOLAEE, LAS, ESA, LUF, 148 

1484 CLS :CLERE: He MAMNAUITES CRDIHAIRES" : 
RENE AT 

af THPUT "Hombre es mensualités © UH 
GA IHPUT "Meme À à putr PSFER 
1 è 












à INPUT" Intere 5 MI 
A INPUT "Paiement 1: Sais si MiPL 


159 GOSUBSESA 
LA MPePPRAT CE der DAT SEULS T nd FLE LT EH 
ne aMR  COSLIES AE : LP 

154 PÉTHT: PRINT: PFTHT 
OA FÉTIT "Ma leur actu 
FA GOSUB£6S0 : GOSUE 






"is F' 





sf CLS: CLERF : bide “ AHAUT TES _CRCIHAIRES" : 
= HBRE DE MENSUALITÉS 

14 INPUT "Valeur actuelle. 
TH IT "Te DES Fi L 0 
ae IT 1 de 


1 : 44 F 

‘ Per 
…. MAT 
1. : FL. 















1 Hs LH PPP— - L'HPL 26 PPP-THUP IS éLHE1+T 2 
te GOSSES AGE : He 

1 PRINT :PEIHT: FETIHT 

PRINT Hombre den 
36: GOSUBESSE : GATE x 
L th He AMNAUITES DEDIHAIRES"C 
PEN-—-MEHS JALITES re 

LEA THPUT "Valeur acte rlle.... 
CAE THPUT "Hombre de MEL 
316 LES Pise 5 
C4 


aualitées : H:GT 






[L 3 nu F 

















Ur À : LEUR ER 

15 FE CL. CLERF Hz MAHAUITE 
ÉEN---PATEMENT LIFERATOTRE. 
1284 IHPUT"'Waleur acte the ss ot "iv 
A IMPUT'Menaualites,,  MiPPF 
GA TMEUT "Hors dé mins ii "Mi h 
LE INPUT" Tnterets ER aauussnue my at 














COS ne 
PL 





à Mie T AT 
He Pt à A PL 

+4 FÉTHT: PRINT PRIT 

456 FRIHT"Paie ment Tiboratoire, 2 "AL 'G 
SUESATE : COSUBESSG : GOTOREE 














LE CLS: CLERE : PEN 
FE PRINT OT ee Mme 
LA PÉEMT" é . ones 







CAAMLITES ELLES 











SGA PRINT" 4 
SL NES 5 «| 







NS NARHES LUTHEHIS IE 





 IMÉUT UE 
à IHPUTUH 
EE IHPUT" Inbere 












TES ECHLEE "CO REM 






1. THE it, 4 à 
j HUE 










no noie srl 
Te, ur PRE LA T 





“CLEA ME "AUUTTES ECHUES" 






at tlessuusonut MINE 
oribes ee PER 


à INPUT" leur 
INPUT "Hank 





5 ent Liberatodezs, co MEL 
LPPA PRE É MP PIE AT el SEE AT CE € Le 
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LT 
PRINT 
CÜSURE 
1728 C'. 


FE rrn 






PAIE LIBE 


1808 THPLT Ma Leur 
Le à INPUT Menu Lite: 





1849 PL- 
ME DAT et: 
NT :PRINT 
SQ PRINT" Paiement 
EUR HAE GOSSES: GO 
ä GE TE 11H 

25 CLS: END 


à FEN- ma me À 

see TIMTÉS 
e RETURH 
4 FEM-« 





LU "H: Ne 
GETHE : 


: 

EH RE 
45 QGÜSUE 
[e 


Pan fat Fe UE 


ef 
ñé 
af 
1 
el 


ir ut - 


LES 300 
2148 LFRIHT" 
: QE LE 
3158 LE RMS 
2168 LERIHT" 
st 2 
217 LPRINTE 
da MORE 
2164 LPRIHT" 
: LE 
2198 LPRIHT" 
in. "FR 
2289 RETUFH 


His T he 


*OLERR USA 


“CEMAHGE D 
) PRINT. FRIMT:FETHT"VoutLez 


IFH 
QUE SUEZ TER : 


LPRIHTTAE 


PPP:COSURSG AE PPPek: PRTHT 






MERE : 


CAE +. LES 11 EE 5 on #4 # i “Fe 
RE MEL alites . H 
es "iPPP 


OU Où 0 mu on nn 
“. es . NH, I [3 
ÉUOUOUON uno mOn On nm 6 Hd Ua 





Ge is are 


:FRINT:PEAI 
"FL: 





#P CE FORMAT-- 
ELA Se 1 AA 


IMPRES ue 

ALES LME À 
FM TMEHRETLRH 

RETUFH 

IMPRELSTOEH. 






a CHERE 1 4 MRCHRSE LE 


a QUE 


Maleur Présente, sou 
Lnbegpete RU 

Home ce Méneua 
Meviuntites 
Maleu futures, 
Falement Libheratoipe,s 
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1 RE FCIRMEAT DE OT 
4 Sel: Terls 1: et 186 
Ft RETUEH 
A EM sr SAUT DE LIGHES 
16 FOFFSITOS:LPETHT:HEST 
FH FETURH 
5 REF OUEMANDE ST MOLE IMPRESST OH 
4 PÉTAT:PEÉTAT:PETHT 
4 PÉTHT "'HonmeTlle infress ion SSH 
PRTET: PRINT MAP PUS gue come Loch, 





oO GETHE TP MOUTHEMGOENRST 0 
HA METLUEH 
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Conversion Celsius/Farenheit 


Ce programme effectue la conversion des degrés centi- 
grades ou Celsius en degrés Farenheit et la conversion 
inverse. 


10 
20 


30 
40 
30 
100 
110 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
300 
310 
320 
330 
3540 
350 
355 
360 
370 


REM JACOB EDGAR & JOSEPH PORTELLI 
REM LE 25 / 10 /1983 


REM CONVERSION DEGRES ’C’ & ?’F? 

REM 

PAPERO : INK3 : CLS 

POKE#268,3 : PRINT 

PRINTCHRS# (4) TAB(20)CHR$ (27) "B"CHR$S (27) 
"JCONVERS 

PRINT : PRINT : PRINT 
PRINTTAB(24)CHR$(27) "JMENU"CHRS (4) 
PRINT : PRINT : PRINT 

PRINT"1 - DEGRES CENTIGRADES EN FARENHEIT." 
PRINT"2 - DEGRES FARENHEIT EN CENTIGRADES." 
PRINT"3 - QUITTER LE PROGRAMME. " 

PRINT : PRINT : PRINT 
PRINTCHR#S (135) "APPUYER SUR 1,2 OÙ 3." 
GETH : IFH<2>10RH< >20RH >STHEN200 
ONHGOTO300,400,500 

CALLHCCOAÀ 

INPUT'"'VALEUR EN DEGRES C : ";D 
F=INT(9/SXD+32) 

POKE#268,PEEK(H#268) +10 : PRINT 
PRINTTAB(20)D" DEGRES C = "F" DEGRES F" 
PRINT : PRINT : PRINT 

PRINT" ON CONTINUE (O/N) 7?" 

GETHS 

IFH$="Q"THENSOO 
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380 
370 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
9510 
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IFH&<2>"N"THENS6O 

GOTO90 

CLS 

INPUT'"VALEUR EN DEGRES F : "3D 
POKE#268,PEEK(#268) +10 : PRINT 
F=INT(S5/9XD-32) 

PRINTTAB(20)D" DEGRES F = "F" DEGRES C" 
PRINT : PRINT : PRINT 

PRINT" ON CONTINUE (O/N) 7" 
GETHS 

IFH#$="Q"THENSOO 

IFHS< >"N'"THEN470 

GOQTO90 

CLS : END 


Conversion des chiffres arabes 
en chiffres romains. 


Ce programme a pour fonction de convertir les nombres 
en chiffres arabes en nombres en chiffres romains, et 
réciproquement. Pour des raisons de représentation des 
caractères utilisés par les Romains, seuls les nombres 
inférieurs à 4000 sont acceptés. 

A la mise en marche du programme, il vous est donné le 
choix entre faire des conversions, et jouer. 

Si vous choisissez de faire des conversions, vous pou- 
vez écrire indifféremment un nombre en chiffres romains 
ou un nombre en chiffres arabes : c’est le programme qui 
se charge de reconnaître la nature de ce nombre, afin de 
vous donner la correspondance. 

Si vous préférez jouer, c’est l'ordinateur qui va proposer 
aléatoirement un nombre en chiffres arabes ou en chiffres 
romains, et il s’agira pour vous de donner l’équivalent en 
chiffres respectivements romains ou arabes. 


STRUCTURE DU PROGRAMME : 


- lignes 10-450 : présentation 

- lignes 1000-1196 : jeu 
avec en 1020 : choix aléatoire du nombre qui sera pro- 
posé 
avec en 1050 : choix aléatoire de la forme dans laquelle 
la question sera posée (avec renvoi en 1070 au sous- 
programme correspondant) 

- lignes 1200-1530 : sous-programme de conversion 
arabes/romains 

- lignes 2000-2270 : sous-programme de conversion 
romains/arabes. 
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ALIEN 










AGET EN CHI 


“EF SUR UHE TOUCH 


Hg: TP Hi LU THEHEOLE : COTON EG 
414 TFHE MEUTHERE (TT CL CEE 










HE IF 
ASE INT 


44 FRINHTCHE S'IL REMOTE 
HE 4 0 

AS PÉTATOMESE LE 1 ENT 

166 CLEA 

de. (RIRE 





d'hlse 
PE GHAGOTE SE 
1 FETAT "Con “ pe APE #3 
LE ile 


Et 


ET 

fl IFERS SRETHENPR ELITE HR 73 à QUTOT LE 
4 GOT 
PRINT "Cons 
LHPUTES 





Euh Le et bed pet jet Bon PUY EU LOU ITU LT LE 


FA OIFES LE Ge LS OUTHEMENE 
SA IFERSSHETMENPET HIT Re eu : DOTOL LEE 
5e PEÉINT: PEINT:PÉIHT:PEINT:FEIMT 

sou PÉTATCHESRE TARA MARNE CU MEN 
des HE FE HW DEN CHEME d 5 
E9 PRINT: FETHT : PRINT PETHT 
SA PFEIHT" Qi continie CCM EN 











ag GETHE : TF He M OTTMERT GA 

ad IF SE UMAITHENT LEE 

Gé GOTOSAE 

AA CLEAR COLE: PORERZES Bi PRINT 

LHPLT orales a core pe 
HAL Hi 

IFHSATHENEAAE 

; TRUE ES, SOTMENHT 

OMS UTMEHPRTIMT "Ce mme : 

Hd," AP: EAP: ERP: MAITISA: GOTOLE q 

Le ce el EE HS 

Fe LITE 1 ETEFe 1 








HS 





















a ALE-NI DE ME, 2, 1 
a fl ALI A1E 


ef % : RE M 
et: AlrAi 


2 En a IRL COTON di 
UT site À TE É 


(450 PRIT: e a 
CM EUR ATEN ER RC HERE À 

146 PETITS: PETHT: PRTAT:EPRTHT" br cort à 
me CLR CE" 

145 GETHR : FH OUTHEN LEE 
LFHRE Se UMUTHENT 45 

FFE GOTOSGE 

SA IFESL THERE es Ut ges OU ie MUC ET 
LH 

ASIE LES. 1 THEME fre OU Eponge ON fee 0 pe 
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E 





TH 





me RATE 
% 


FE FOR: GO 


_… 


Lee ben À 
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Calcul de résistances 


Destiné à l’électronicien, ce petit programme calcule la 
résistance équivalente à l’association de plusieurs résis- 
tances en série ou en parallèle. 


Frs 





Permet 





cle: 
RE CHOLH c"iT 


11H HAUT me ché Perle LANEEs En ser 


de pesiedtanesg cs MR 





En PEIHT:FÉINT:PEIHT 
174 PRINT'LA VALER EQUIYALEHTE EST 2": 
188 FOR I=1T0 
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FESRE+E 8 CC MEST : PRINT: PRINT: FEIHT:FE 


FRLHTTAES 26 CHERE ES RES Obs": FEIH 
PRINT FRINT 

156 PEIHT'AFEUTER SUR UHE TOUCHE FOU RE 
TOURHEF ALI MEHL" 

137 GETHS : IFHÉTHENSS 

à PRIHTRE ; SPC ZOMOHNE" 
FRINTRE ; SPC MOINE" 

CLE : CLAF 

INPUT" Combien de résistantes en #1" 


Cat oo 


es Ci 6 


SA CIMPRE SU: CLE 

234 FORJSITU* 

49 IHPUT'Valeur des résistances :"RC4a 

259 HEST:ELE : FRINT:PRIHT:FEITHT:FAIHT 

ZE FRIHT'LA VALEUR CE LA FESISTANCE EST 
M PRINT: FERINT:FEIHT 

éba ci 

2rg FÜRJEITOE 

BSD msi LéRC 

HET 

FESLeE 

GOTOISS 

EHC: 


Ce Fo For M5 


Pr Ar Er 
ii D on 
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TRUCS ET ASTUCES 


100 
110 
120 
130 
140 
150 
160 


10 
20 
so 
40 
50 
60 
70 
80 


Exemple de tabulation avec PLOT. 


REM * JACOB EDGAR & JOSEPH PORTELLI + 
REM EXEMPLE DE TABULATION AVEC PLOT 
REM 

CLS 

A=10 : GOSUB 60 

A=20 : GOSUB 60 

A=30 : GOSUR 60 

GOTO 100 

FOR X=1 TO 20 

PLOTA,X,":" 

NEXT X 

RETURN 

X=7 : GOSUB 130 

X=14 : GOSUB 130 

END 

FOR A=1 TO 38 

PLOTA,X,"-" 

NEXT A 

RETURN 


Comment dessiner un cercle bien rond. 


REM % JACOB EDGAR & JOSEPH PORTELLI # 
REM DESSIN D'UN CERCLE BIEN ROND. 
REM 

HIRES 

CURSET120,100,0 

FOR X=-180 TO 180 
CURSETIS+SIN(X)X80+99,COS(X)X99+99, 1 
NEXT 


15 
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Comment afficher des ‘‘“*”’ dans l’ordre. 


10 REM * JACOB EDGAR & JOSEPH PORTELLI *% 
20 REM AFFICHER DES ’%*’ DANS L’ORDRE 
3O REM 

40 CLS 

50 INPUT"'DIMENSIONS A,RB : ";A,B 

60 FOR J=1i TO B 

7Q PRINTTAB(20); : REM FALCULTATIF 

80 FOR I=1i TO A-1 

90  PRINT'+#"; 

100 NEXT I 


110 PRINT'"+X" 
120 NEXT J 


10 
20 
30 
40 
50 
60 
70 
80 
90 


Comment dessiner une sinusoïde. 


REM % JACOB EDGAR & JOSEPH PORTELLI + 
REM TRACE D’UNE SINUSOIDE 

REM 

HIRES 

DRAWO,199,1 

CURSETO,100,3 : DRAW239,0,1 

FOR X=-PI TO PI STEP.02 
CURSETXX#38+120,SIN(X)#99+99,1 

NEXT X 


REDEFINITION DE CARACTERES 


A l’aide du programme de REDEFINITION DE CARAC- 
TERRES, livré avec l’ORIC vous pouvez redéfinir le clavier. 

En chargeant les valeurs ci-dessous, vous aurez un très 
bel alphabet cyrillique. 


LES VALEURS DONNEES SONT EN DECIMAL 


Pour À - Rien ne change. 


Pour B 
Pour C 
Pour D 
Pour E 
Pour F 
Pour G 
Pour H 
Pour | 

Pour J 

Pour K 
Pour L 

Pour M 
Pour N 
Pour O 
Pour P 
Pour Q 
Pour R 
Pour S 
Pour T 
Pour U 
Pour V 
Pour W 
Pour ŸY 
Pour Z 


- 60 34 34 
- 42 42 42 
- 62 20 20 
- 62 18 16 
- 62 28 42 
- 62 18 16 
-20 8 34 
- 34 34 38 
- 42 42 42 
-56 18 20 
- 62 20 20 


60 
42 
20 
28 
42 
16 
38 
42 
28 
24 
20 


34 


.42 


20 
16 
42 
16 
42 
50 
42 
24 
20 


- Rien ne change. 
- 34 34 34 62 34 
- Rien ne change. 


- 62 20 20 
- 36 42 42 
- 62 18 18 
-12 18 32 
-62 42 8 
-34 18 12 
- 62 18 18 
- 38 36 36 
- 14 20 36 
- 28 34 2 


20 
58 
28 
32 

8 

8 
28 
60 
60 
12 


20 
42 
16 
32 
8 
8 
18 
4 
20 
2 


34 
62 
62 
18 
28 

6 
50 
34 
42 
20 
20 


34 


20 
42 
16 
18 

8 

8 
18 

4 
36 
34 


60 

2 
34 
62 
62 
56 
34 
34 


42: 


50 
38 


34 


54 
52 
56 
12 
28 
16 
62 
14 
62 
28 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 
0 


0 
0 


OO0OOOOO 
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Table des codes ascii de l’Oric 1 


O - NUL 
1 - SOH 
2 - STX 
3 - ETX 
4 - Lettres en double (superposées) 
5 - ENQ 
6 - ACK - Enlève le son (CTRLF) 
7 - BEL - PING 
8 - BS - Curseur 1 cran à gauche 
9 - HT - Curseur 1 cran à droite 
10 - LF - Curseur 1 cran en dessous 
11 - VT - Curseur 1 cran au dessus 
12 -FF - fait comme un CLS 
13 - CR - retour chariot 
14 - SO - effacement de la ligne occupée par le curseur 
15 -Sl 
16 - DLE 
17 - DC1 - supprime le curseur (CTRLQ) 
18 - DC2 
19 - DC3 - efface ou rétablit l'affichage 
20 - DCA4 - Minuscule 
21 - NAK 
22 - SYN 
23 - ETB 
24 - CAN 
25 - EM 
26 - SUB 
27 - ESC 
28-FS 
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29 - GS 
30 - RS 
31 - US 
32 - Space 
33 -! 
34 -“ 
35 -# 
36-$ 
37 - % 
38 - 
+. 


* 
41. 
42 -* 
43 - + 
44-, 
45 -- 
46 -. 
47 -/ 
48-0 
49 -1 
50 - 2 
51 -3 
52 - 4 
53 - 5 
54 - 6 
55 - 7 
56 - 8 
57 -9 
58 - : 
59 - ; 
60 - flèche à gauche 
6 


62 - flèche à droite 
63 - ? 
64 - À commercial 
65 - A 
66 -B 
67-C 
68 - D 


69 -E 
70-F 
71-G 
72 -H 
73-1 
74 -J 
75 -K 
76-L 
77-M 
78-N 
79-0O 
80 - P 
81-Q 
82 -R 
83-S 
84-T 
85 -U 
86 - V 
87 -W 
88 - X 
89 - Y 
90 - Z 
91 - crochet à droite 


92 - barre oblique inversée 
93 - crochet à gauche 


94 - élévation à la puissance 


(signe) 
95 - 


96 - copyright (signe) 
97 


- a 
98 - b 
99 - c 
100 -d 
101-e 
102 -f 
103 -g 
104-h 
105 -i 
106 -)j 
107 -k 
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108 -| 148 - papier bleu 


109 -m 149 - papier mauve 
110-n 150 - papier bleu ciel 
111-0 151 - papier blanc 
112-p 152 - 80 hz 

113-q 153 - 60 hz 

114-r 154 - 50 hz 

115-5s 155 - 50 hz 

116-t 156 - graphique 

117 -u 157 - GRAPHIQUE 
118-V 158 - graphique 
119-w 159 - graphique 

120 -x de 160 à 255 les mêmes mais 
121-Yy en inverse. 

122 -z 


123 - accolade à droite 

124 - barre verticale 

125 - accolade à gauche 
126 - carré 

127 - DEL 

128 - encre noire 

129 - encre rouge 

130 - encre verte 

131 - encre jaune 

132 - encre bleue 

133 - encre mauve 

134 - encre bleue ciel 

135 - encre blanche 

136 - décale de 5 sp à droite 
137 - caractères graphiques 
138 - double hauteur 

139 - 

140 - flash 

141 - graphiques clignotants 
142 - DH clignotants 

143 - DH graphique clignotant 
144 - papier noir 

145 - papier rouge 

146 - papier vert 

147 - papier jaune 
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